about summary refs log blame commit diff stats
path: root/html/074print-int-decimal.subx.html
blob: 6a78c5daf8b03595a0d32b2a3aecd05e11a2f5a0 (plain) (tree) 
0af2ea07 ^




c8a3ccbe ^

ce2c1efc ^


0af2ea07 ^










60338448 ^

ce2c1efc ^

60338448 ^


ce2c1efc ^

60338448 ^


ce2c1efc ^

60338448 ^

0af2ea07 ^
















ce2c1efc ^

0af2ea07 ^
















c8a3ccbe ^

0af2ea07 ^








ce2c1efc ^






33352536 ^

ce2c1efc ^

33352536 ^





ce2c1efc ^






33352536 ^


ce2c1efc ^










33352536 ^


ce2c1efc ^

33352536 ^







ce2c1efc ^


33352536 ^



ce2c1efc ^


33352536 ^

ce2c1efc ^

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-12-02 19:30:26 +0000
-int-decimal.subx.html?h=hlt&id=333525360b22f3d3ea31db46a4d2f1b4edbfebdb'>33352536 ^ 
ce2c1efc ^









33352536 ^

ce2c1efc ^












33352536 ^

ce2c1efc ^



52daf072 ^


ce2c1efc ^

52daf072 ^

33352536 ^

ce2c1efc ^

52daf072 ^

ce2c1efc ^






33352536 ^

ce2c1efc ^




0af2ea07 ^




1
2
3
4

5

6
7

8
9
10
11
12
13
14
15
16
17

18

19

20
21

22

23
24

25

26

27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

43

44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

60

61
62
63
64
65
66
67
68

69
70
71
72
73
74

75

76

77
78
79
80
81

82
83
84
85
86
87

88
89

90
91
92
93
94
95
96
97
98
99

100
101

102

103
104
105
106
107
108
109

110
111

112
113
114

115
116

117

118

119
120
121
122
123
124
125
126
127

128
129
130

131

132
133
134
135

136
137
138
139
140
141
142
143
144

145

146
147
148
149

150
151

152

153
154
155

156

157

158

159

160

161
162
163

164

165
166

167
168
169
170
171

172

173
174

175
176
177
178
179
180
181
182
183
184

185

186

187
188

189
190
191
192
193
194
195
196
197
198
199
200

201

202
203
204

205
206

207

208

209

210

211

212
213
214
215
216
217

218

219
220
221
222
223
224
225
226
227
228
229
230

231

232
233
234

235
236

237

238

239

240

241

242
243
244
245
246
247

248

249
250
251
252
253
254
255
256
257
258
259
260

261

262
263
264

265
266

267

268

269

270

271

272
273
274
275
276
277

278

279
280
281
282
283
284
285
286
287
288
289
290

291

292
293
294

295
296

297

298

299

300
301
302
303
304
305
306
307
308

309

310
311
312
313
314
315
316
317
318
319
320
321

322

323
324
325

326
327

328

329

330

331

332

333
334
335
336
337
338

339

340
341
342
343

344
345
346
347




                                                                                          
                                             

                                                









                                                                                                      
                                  
                                                      

                                  
                                                             

                                                                           
                             
                             















                                                                                 
                                                  















                                                                              
                                                                                                                                                       







                                                                                                                                                                                                                            





                                                                                                                                                                    
                                                                                              
                                                                                            




                                                                                                             





                                                                                                                         

                                                                                                              









                                                                                                                                                                                                                                           

                                                                                                                                                                                                                                                                                                                                                                                             
                                                                                                  






                                                                                            

                                                                                             


                                                                                                                                                                                                                                                                                                                                                                       

                                                                                                              
                                                                                                                                                                                                                                                                                                                                                                                                                    
                                                                                                      








                                                                                                                                                                                                                                                                                                                                                                                                                                                                             


                                                                                                       
                                                                                                                                                                                                                                                                                                                                                                   



                                                                                                                                               








                                                                                                                                                                                                                                                                                                                                                                                              
                                                                                                       



                                                                                                          

                                                                                                         
                                                                                                                                                                                                                                                                                                                                                                                                  


                                                                                                                   
                                                                                                                                                                                                                                                                                                                                                                                                     
                                                                                      
                                                             
                                                                                   
                                                             


                                                                                                         
                                                                                                                                                                                                                                                                                                                                                                                               

                                                                                                      




                                                           
                                                                                           

                                                                                                                                                                                                                                                                                                                                                                                              









                                                                                                                                          
                                                                                                                                                                                                                                                                                                                                                                                         
                                                                                                     

                                                                          











                                                                                                                                        
                                                                                                                                                                                                                                                                                                                                                                                         


                                                                                                                     

                                                                                                               
                                                                                                                                 
                                                                                                   
                                                                                                                                                                                                                                                                                                                                                                                         
                                                                                                                                     
                                                                                                





                                                                                                                                   
                                                                                                                                                                                                                                                                                                                                                                                         











                                                                                                                    
                                                                                                                                                                                                                                                                                                                                                                                         


                                                                                                                     

                                                                                                               
                                                                                                                                 
                                                                                                   
                                                                                                                                                                                                                                                                                                                                                                                         
                                                                                                                                     
                                                                                                





                                                                                                                                        
                                                                                                                                                                                                                                                                                                                                                                                         











                                                                                                                                       
                                                                                                                                                                                                                                                                                                                                                                                         


                                                                                                                      

                                                                                                               
                                                                                                                                 
                                                                                                   
                                                                                                                                                                                                                                                                                                                                                                                         
                                                                                                                                      
                                                                                                





                                                                                                                                                   
                                                                                                                                                                                                                                                                                                                                                                                         











                                                                                                                                                 
                                                                                                                                                                                                                                                                                                                                                                                         


                                                                                                                      

                                                                                                               
                                                                                                                                 
                                                                                                   
                                                                                                                                                                                                                                                                                                                                                                                         








                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                                                                                                                                                         











                                                                                                                                       
                                                                                                                                                                                                                                                                                                                                                                                         


                                                                                                                       

                                                                                                               
                                                                                                                                 
                                                                                                   
                                                                                                                                                                                                                                                                                                                                                                                         
                                                                                                                                       
                                                                                                





                                                                                                                                                            
                                                                                                                                                                                                                                                                                                                                                                                         



                                                                                                               



                                     
<!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">
<title>Mu - 074print-int-decimal.subx</title>
<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,no_foldcolumn,expand_tabs,line_ids,prevent_copy=">
<meta name="colorscheme" content="minimal-light">
<style type="text/css">
<!--
pre { font-family: monospace; color: #000000; background-color: #c6c6c6; }
body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; }
a { color:inherit; }
* { font-size:12pt; font-size: 1em; }
.subxComment { color: #005faf; }
.subxS2Comment { color: #8a8a8a; }
.Folded { color: #080808; background-color: #949494; }
.LineNr { }
.subxS1Comment { color: #0000af; }
.subxFunction { color: #af5f00; text-decoration: underline; }
.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; }
.subxH1Comment { color: #005faf; text-decoration: underline; }
.Constant { color: #008787; }
.subxTest { color: #5f8700; }
-->
</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();'>
<a href='https://github.com/akkartik/mu/blob/master/074print-int-decimal.subx'>https://github.com/akkartik/mu/blob/master/074print-int-decimal.subx</a>
<pre id='vimCodeElement'>
<span id="L1" class="LineNr">  1 </span><span class="subxComment"># Helper to print an int32 in decimal.</span>
<span id="L2" class="LineNr">  2 </span>
<span id="L3" class="LineNr">  3 </span>== code
<span id="L4" class="LineNr">  4 </span><span class="subxComment">#   instruction                     effective address                                                   register    displacement    immediate</span>
<span id="L5" class="LineNr">  5 </span><span class="subxS1Comment"># . op          subop               mod             rm32          base        index         scale       r32</span>
<span id="L6" class="LineNr">  6 </span><span class="subxS1Comment"># . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes</span>
<span id="L7" class="LineNr">  7 </span>
<span id="L8" class="LineNr">  8 </span><span class="subxFunction">print-int32-decimal</span>:  <span class="subxComment"># out : (address stream), n : int32</span>
<span id="L9" class="LineNr">  9 </span>    <span class="subxComment"># works by generating characters from lowest to highest and pushing them</span>
<span id="L10" class="LineNr"> 10 </span>    <span class="subxComment"># to the stack, before popping them one by one into the stream</span>
<span id="L11" class="LineNr"> 11 </span>    <span class="subxComment">#</span>
<span id="L12" class="LineNr"> 12 </span>    <span class="subxComment"># pseudocode:</span>
<span id="L13" class="LineNr"> 13 </span>    <span class="subxComment">#   push sentinel</span>
<span id="L14" class="LineNr"> 14 </span>    <span class="subxComment">#   eax = abs(n)</span>
<span id="L15" class="LineNr"> 15 </span>    <span class="subxComment">#   while true</span>
<span id="L16" class="LineNr"> 16 </span>    <span class="subxComment">#     sign-extend eax into edx</span>
<span id="L17" class="LineNr"> 17 </span>    <span class="subxComment">#     eax, edx = eax/10, eax%10</span>
<span id="L18" class="LineNr"> 18 </span>    <span class="subxComment">#     edx += '0'</span>
<span id="L19" class="LineNr"> 19 </span>    <span class="subxComment">#     push edx</span>
<span id="L20" class="LineNr"> 20 </span>    <span class="subxComment">#     if (eax == 0) break</span>
<span id="L21" class="LineNr"> 21 </span>    <span class="subxComment">#   if n &lt; 0</span>
<span id="L22" class="LineNr"> 22 </span>    <span class="subxComment">#     push '-'</span>
<span id="L23" class="LineNr"> 23 </span>    <span class="subxComment">#   w = out-&gt;write</span>
<span id="L24" class="LineNr"> 24 </span>    <span class="subxComment">#   curr = &amp;out-&gt;data[out-&gt;write]</span>
<span id="L25" class="LineNr"> 25 </span>    <span class="subxComment">#   max = &amp;out-&gt;data[out-&gt;length]</span>
<span id="L26" class="LineNr"> 26 </span>    <span class="subxComment">#   while true</span>
<span id="L27" class="LineNr"> 27 </span>    <span class="subxComment">#     pop into eax</span>
<span id="L28" class="LineNr"> 28 </span>    <span class="subxComment">#     if (eax == sentinel) break</span>
<span id="L29" class="LineNr"> 29 </span>    <span class="subxComment">#     if (curr &gt;= max) abort</span>
<span id="L30" class="LineNr"> 30 </span>    <span class="subxComment">#     *curr = AL</span>
<span id="L31" class="LineNr"> 31 </span>    <span class="subxComment">#     ++curr</span>
<span id="L32" class="LineNr"> 32 </span>    <span class="subxComment">#     ++w</span>
<span id="L33" class="LineNr"> 33 </span>    <span class="subxComment">#   out-&gt;write = w</span>
<span id="L34" class="LineNr"> 34 </span>    <span class="subxComment"># (based on K&amp;R itoa: <a href="https://en.wikibooks.org/wiki/C_Programming/stdlib.h/itoa)">https://en.wikibooks.org/wiki/C_Programming/stdlib.h/itoa)</a></span>
<span id="L35" class="LineNr"> 35 </span>    <span class="subxComment"># (this pseudocode contains registers because operations like division</span>
<span id="L36" class="LineNr"> 36 </span>    <span class="subxComment"># require specific registers in x86)</span>
<span id="L37" class="LineNr"> 37 </span>    <span class="subxComment">#</span>
<span id="L38" class="LineNr"> 38 </span>    <span class="subxS1Comment"># . prolog</span>
<span id="L39" class="LineNr"> 39 </span>    55/push-ebp
<span id="L40" class="LineNr"> 40 </span>    89/copy                         3/mod/direct    5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          4/r32/esp  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy esp to ebp</span>
<span id="L41" class="LineNr"> 41 </span>    <span class="subxS1Comment"># . save registers</span>
<span id="L42" class="LineNr"> 42 </span>    50/push-eax
<span id="L43" class="LineNr"> 43 </span>    51/push-ecx
<span id="L44" class="LineNr"> 44 </span>    52/push-edx
<span id="L45" class="LineNr"> 45 </span>    53/push-ebx
<span id="L46" class="LineNr"> 46 </span>    57/push-edi
<span id="L47" class="LineNr"> 47 </span>    <span class="subxComment"># ten/ecx = 10</span>
<span id="L48" class="LineNr"> 48 </span>    b9/copy-to-ecx  0xa/imm32
<span id="L49" class="LineNr"> 49 </span>    <span class="subxComment"># push sentinel</span>
<span id="L50" class="LineNr"> 50 </span>    68/push  0/imm32/sentinel
<span id="L51" class="LineNr"> 51 </span>    <span class="subxComment"># eax = abs(n)</span>
<span id="L52" class="LineNr"> 52 </span>    8b/copy                         1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax   0xc/disp8      <span class="Normal"> . </span>                <span class="subxComment"># copy *(ebp+12) to eax</span>
<span id="L53" class="LineNr"> 53 </span>    3d/compare-eax-with  0/imm32
<span id="L54" class="LineNr"> 54 </span>    7d/jump-if-greater-or-equal  $print-int32-decimal:read-loop/disp8
<span id="L55" class="LineNr"> 55 </span><span class="Constant">$print-int32-decimal:negative</span>:
<span id="L56" class="LineNr"> 56 </span>    f7          3/subop/negate      3/mod/direct    0/rm32/eax   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># negate eax</span>
<span id="L57" class="LineNr"> 57 </span><span class="Constant">$print-int32-decimal:read-loop</span>:
<span id="L58" class="LineNr"> 58 </span>    <span class="subxComment"># eax, edx = eax / 10, eax % 10</span>
<span id="L59" class="LineNr"> 59 </span>    99/sign-extend-eax-into-edx
<span id="L60" class="LineNr"> 60 </span>    f7          7/subop/idiv        3/mod/direct    1/rm32/ecx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># divide edx:eax by ecx, storing quotient in eax and remainder in edx</span>
<span id="L61" class="LineNr"> 61 </span>    <span class="subxComment"># edx += '0'</span>
<span id="L62" class="LineNr"> 62 </span>    81          0/subop/add         3/mod/direct    2/rm32/edx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              0x30/imm32        <span class="subxComment"># add to edx</span>
<span id="L63" class="LineNr"> 63 </span>    <span class="subxComment"># push edx</span>
<span id="L64" class="LineNr"> 64 </span>    52/push-edx
<span id="L65" class="LineNr"> 65 </span>    <span class="subxComment"># if (eax == 0) break</span>
<span id="L66" class="LineNr"> 66 </span>    3d/compare-eax-and  0/imm32
<span id="L67" class="LineNr"> 67 </span>    7f/jump-if-greater  $print-int32-decimal:read-loop/disp8
<span id="L68" class="LineNr"> 68 </span><span class="Constant">$print-int32-decimal:read-break</span>:
<span id="L69" class="LineNr"> 69 </span>    <span class="subxComment"># if (n &lt; 0) push('-')</span>
<span id="L70" class="LineNr"> 70 </span>    81          7/subop/compare     1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>          0xc/disp8       0/imm32           <span class="subxComment"># compare *(ebp+12)</span>
<span id="L71" class="LineNr"> 71 </span>    7d/jump-if-greater-or-equal  $print-int32-decimal:<a href='057write.subx.html#L24'>write</a>/disp8
<span id="L72" class="LineNr"> 72 </span><span class="Constant">$print-int32-decimal:push-negative</span>:
<span id="L73" class="LineNr"> 73 </span>    68/push  0x2d/imm32/-
<span id="L74" class="LineNr"> 74 </span><span class="Constant">$print-int32-decimal:<a href='057write.subx.html#L24'>write</a></span>:
<span id="L75" class="LineNr"> 75 </span>    <span class="subxComment"># edi = out</span>
<span id="L76" class="LineNr"> 76 </span>    8b/copy                         1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          7/r32/edi   8/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy *(ebp+8) to edi</span>
<span id="L77" class="LineNr"> 77 </span>    <span class="subxComment"># w/edx = out-&gt;write</span>
<span id="L78" class="LineNr"> 78 </span>    8b/copy                         0/mod/indirect  7/rm32/edi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          2/r32/edx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy *edi to edx</span>
<span id="L79" class="LineNr"> 79 </span>    <span class="subxComment"># curr/ecx = &amp;out-&gt;data[out-&gt;write]</span>
<span id="L80" class="LineNr"> 80 </span>    8d/copy-address                 1/mod/*+disp8   4/rm32/sib    7/base/edi  2/index/edx  <span class="Normal"> . </span>          1/r32/ecx   0xc/disp8      <span class="Normal"> . </span>                <span class="subxComment"># copy ebx+edx+12 to ecx</span>
<span id="L81" class="LineNr"> 81 </span>    <span class="subxComment"># max/ebx = &amp;out-&gt;data[out-&gt;length]</span>
<span id="L82" class="LineNr"> 82 </span>    8b/copy                         1/mod/*+disp8   7/rm32/edi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          3/r32/ebx   8/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy *(edi+8) to ebx</span>
<span id="L83" class="LineNr"> 83 </span>    8d/copy-address                 1/mod/*+disp8   4/rm32/sib    7/base/edi  3/index/ebx  <span class="Normal"> . </span>          3/r32/ebx   0xc/disp8      <span class="Normal"> . </span>                <span class="subxComment"># copy edi+ebx+12 to ebx</span>
<span id="L84" class="LineNr"> 84 </span><span class="Constant">$print-int32-decimal:write-loop</span>:
<span id="L85" class="LineNr"> 85 </span>    <span class="subxComment"># pop into eax</span>
<span id="L86" class="LineNr"> 86 </span>    58/pop-to-eax
<span id="L87" class="LineNr"> 87 </span>    <span class="subxComment"># if (eax == sentinel) break</span>
<span id="L88" class="LineNr"> 88 </span>    3d/compare-eax-and  0/imm32/sentinel
<span id="L89" class="LineNr"> 89 </span>    74/jump-if-equal  $print-int32-decimal:write-break/disp8
<span id="L90" class="LineNr"> 90 </span>    <span class="subxComment"># if (curr &gt;= max) abort</span>
<span id="L91" class="LineNr"> 91 </span>    39/compare                      3/mod/direct    1/rm32/ecx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          3/r32/ebx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># compare ecx with ebx</span>
<span id="L92" class="LineNr"> 92 </span>    73/jump-if-greater-or-equal-unsigned  $print-int32-decimal:abort/disp8
<span id="L93" class="LineNr"> 93 </span><span class="Constant">$print-int32-decimal:write-char</span>:
<span id="L94" class="LineNr"> 94 </span>    <span class="subxComment"># *curr = AL</span>
<span id="L95" class="LineNr"> 95 </span>    88/copy-byte                    0/mod/indirect  1/rm32/ecx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/AL   <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy AL to byte at *ecx</span>
<span id="L96" class="LineNr"> 96 </span>    <span class="subxComment"># ++curr</span>
<span id="L97" class="LineNr"> 97 </span>    41/increment-ecx
<span id="L98" class="LineNr"> 98 </span>    <span class="subxComment"># ++w</span>
<span id="L99" class="LineNr"> 99 </span>    42/increment-edx
<span id="L100" class="LineNr">100 </span>    eb/jump  $print-int32-decimal:write-loop/disp8
<span id="L101" class="LineNr">101 </span><span class="Constant">$print-int32-decimal:write-break</span>:
<span id="L102" class="LineNr">102 </span>    <span class="subxComment"># out-&gt;write = w</span>
<span id="L103" class="LineNr">103 </span>    89/copy                         0/mod/indirect  7/rm32/edi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          2/r32/edx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy edx to *edi</span>
<span id="L104" class="LineNr">104 </span><span class="Constant">$print-int32-decimal:end</span>:
<span id="L105" class="LineNr">105 </span>    <span class="subxS1Comment"># . restore registers</span>
<span id="L106" class="LineNr">106 </span>    5f/pop-to-edi
<span id="L107" class="LineNr">107 </span>    5b/pop-to-ebx
<span id="L108" class="LineNr">108 </span>    5a/pop-to-edx
<span id="L109" class="LineNr">109 </span>    59/pop-to-ecx
<span id="L110" class="LineNr">110 </span>    58/pop-to-eax
<span id="L111" class="LineNr">111 </span>    <span class="subxS1Comment"># . epilog</span>
<span id="L112" class="LineNr">112 </span>    89/copy                         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          5/r32/ebp  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy ebp to esp</span>
<span id="L113" class="LineNr">113 </span>    5d/pop-to-ebp
<span id="L114" class="LineNr">114 </span>    c3/return
<span id="L115" class="LineNr">115 </span>
<span id="L116" class="LineNr">116 </span><span class="Constant">$print-int32-decimal:abort</span>:
<span id="L117" class="LineNr">117 </span>    <span class="subxS1Comment"># . _write(2/stderr, error)</span>
<span id="L118" class="LineNr">118 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L119" class="LineNr">119 </span>    68/push  <span class="Constant">&quot;print-int32-decimal: out of space\n&quot;</span>/imm32
<span id="L120" class="LineNr">120 </span>    68/push  2/imm32/stderr
<span id="L121" class="LineNr">121 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L122" class="LineNr">122 </span>    e8/call  <a href='050_write.subx.html#L14'>_write</a>/disp32
<span id="L123" class="LineNr">123 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L124" class="LineNr">124 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              8/imm32           <span class="subxComment"># add to esp</span>
<span id="L125" class="LineNr">125 </span>    <span class="subxS1Comment"># . syscall(exit, 1)</span>
<span id="L126" class="LineNr">126 </span>    bb/copy-to-ebx  1/imm32
<span id="L127" class="LineNr">127 </span>    b8/copy-to-eax  1/imm32/exit
<span id="L128" class="LineNr">128 </span>    cd/syscall  0x80/imm8
<span id="L129" class="LineNr">129 </span>    <span class="subxComment"># never gets here</span>
<span id="L130" class="LineNr">130 </span>
<span id="L131" class="LineNr">131 </span><span class="subxTest">test-print-int32-decimal</span>:
<span id="L132" class="LineNr">132 </span>    <span class="subxH1Comment"># - check that a single-digit number converts correctly</span>
<span id="L133" class="LineNr">133 </span>    <span class="subxComment"># setup</span>
<span id="L134" class="LineNr">134 </span>    <span class="subxS1Comment"># . clear-stream(_test-stream)</span>
<span id="L135" class="LineNr">135 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L136" class="LineNr">136 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L137" class="LineNr">137 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L138" class="LineNr">138 </span>    e8/call  <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L139" class="LineNr">139 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L140" class="LineNr">140 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              4/imm32           <span class="subxComment"># add to esp</span>
<span id="L141" class="LineNr">141 </span>    <span class="subxComment"># print-int32-decimal(_test-stream, 9)</span>
<span id="L142" class="LineNr">142 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L143" class="LineNr">143 </span>    68/push  9/imm32
<span id="L144" class="LineNr">144 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L145" class="LineNr">145 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L146" class="LineNr">146 </span>    e8/call  <a href='074print-int-decimal.subx.html#L8'>print-int32-decimal</a>/disp32
<span id="L147" class="LineNr">147 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L148" class="LineNr">148 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              8/imm32           <span class="subxComment"># add to esp</span>
<span id="L149" class="LineNr">149 </span>    <span class="subxComment"># check-stream-equal(_test-stream, &quot;9&quot;, msg)</span>
<span id="L150" class="LineNr">150 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L151" class="LineNr">151 </span>    68/push  <span class="Constant">&quot;F - test-print-int32-decimal&quot;</span>/imm32
<span id="L152" class="LineNr">152 </span>    68/push  <span class="Constant">&quot;9&quot;</span>/imm32
<span id="L153" class="LineNr">153 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L154" class="LineNr">154 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L155" class="LineNr">155 </span>    e8/call  <a href='058stream-equal.subx.html#L193'>check-stream-equal</a>/disp32
<span id="L156" class="LineNr">156 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L157" class="LineNr">157 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L158" class="LineNr">158 </span>    <span class="subxS1Comment"># . end</span>
<span id="L159" class="LineNr">159 </span>    c3/return
<span id="L160" class="LineNr">160 </span>
<span id="L161" class="LineNr">161 </span><span class="subxTest">test-print-int32-decimal-zero</span>:
<span id="L162" class="LineNr">162 </span>    <span class="subxH1Comment"># - check that 0 converts correctly</span>
<span id="L163" class="LineNr">163 </span>    <span class="subxComment"># setup</span>
<span id="L164" class="LineNr">164 </span>    <span class="subxS1Comment"># . clear-stream(_test-stream)</span>
<span id="L165" class="LineNr">165 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L166" class="LineNr">166 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L167" class="LineNr">167 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L168" class="LineNr">168 </span>    e8/call  <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L169" class="LineNr">169 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L170" class="LineNr">170 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              4/imm32           <span class="subxComment"># add to esp</span>
<span id="L171" class="LineNr">171 </span>    <span class="subxComment"># print-int32-decimal(_test-stream, 0)</span>
<span id="L172" class="LineNr">172 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L173" class="LineNr">173 </span>    68/push  0/imm32
<span id="L174" class="LineNr">174 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L175" class="LineNr">175 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L176" class="LineNr">176 </span>    e8/call  <a href='074print-int-decimal.subx.html#L8'>print-int32-decimal</a>/disp32
<span id="L177" class="LineNr">177 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L178" class="LineNr">178 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              8/imm32           <span class="subxComment"># add to esp</span>
<span id="L179" class="LineNr">179 </span>    <span class="subxComment"># check-stream-equal(_test-stream, &quot;0&quot;, msg)</span>
<span id="L180" class="LineNr">180 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L181" class="LineNr">181 </span>    68/push  <span class="Constant">&quot;F - test-print-int32-decimal-zero&quot;</span>/imm32
<span id="L182" class="LineNr">182 </span>    68/push  <span class="Constant">&quot;0&quot;</span>/imm32
<span id="L183" class="LineNr">183 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L184" class="LineNr">184 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L185" class="LineNr">185 </span>    e8/call  <a href='058stream-equal.subx.html#L193'>check-stream-equal</a>/disp32
<span id="L186" class="LineNr">186 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L187" class="LineNr">187 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L188" class="LineNr">188 </span>    <span class="subxS1Comment"># . end</span>
<span id="L189" class="LineNr">189 </span>    c3/return
<span id="L190" class="LineNr">190 </span>
<span id="L191" class="LineNr">191 </span><span class="subxTest">test-print-int32-decimal-multiple-digits</span>:
<span id="L192" class="LineNr">192 </span>    <span class="subxH1Comment"># - check that a multi-digit number converts correctly</span>
<span id="L193" class="LineNr">193 </span>    <span class="subxComment"># setup</span>
<span id="L194" class="LineNr">194 </span>    <span class="subxS1Comment"># . clear-stream(_test-stream)</span>
<span id="L195" class="LineNr">195 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L196" class="LineNr">196 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L197" class="LineNr">197 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L198" class="LineNr">198 </span>    e8/call  <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L199" class="LineNr">199 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L200" class="LineNr">200 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              4/imm32           <span class="subxComment"># add to esp</span>
<span id="L201" class="LineNr">201 </span>    <span class="subxComment"># print-int32-decimal(_test-stream, 10)</span>
<span id="L202" class="LineNr">202 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L203" class="LineNr">203 </span>    68/push  0xa/imm32
<span id="L204" class="LineNr">204 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L205" class="LineNr">205 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L206" class="LineNr">206 </span>    e8/call  <a href='074print-int-decimal.subx.html#L8'>print-int32-decimal</a>/disp32
<span id="L207" class="LineNr">207 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L208" class="LineNr">208 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              8/imm32           <span class="subxComment"># add to esp</span>
<span id="L209" class="LineNr">209 </span>    <span class="subxComment"># check-stream-equal(_test-stream, &quot;10&quot;, msg)</span>
<span id="L210" class="LineNr">210 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L211" class="LineNr">211 </span>    68/push  <span class="Constant">&quot;F - test-print-int32-decimal-multiple-digits&quot;</span>/imm32
<span id="L212" class="LineNr">212 </span>    68/push  <span class="Constant">&quot;10&quot;</span>/imm32
<span id="L213" class="LineNr">213 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L214" class="LineNr">214 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L215" class="LineNr">215 </span>    e8/call  <a href='058stream-equal.subx.html#L193'>check-stream-equal</a>/disp32
<span id="L216" class="LineNr">216 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L217" class="LineNr">217 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L218" class="LineNr">218 </span>    <span class="subxS1Comment"># . end</span>
<span id="L219" class="LineNr">219 </span>    c3/return
<span id="L220" class="LineNr">220 </span>
<span id="L221" class="LineNr">221 </span><span class="subxTest">test-print-int32-decimal-negative</span>:
<span id="L222" class="LineNr">222 </span>    <span class="subxH1Comment"># - check that a negative single-digit number converts correctly</span>
<span id="L223" class="LineNr">223 </span>    <span class="subxComment"># setup</span>
<span id="L224" class="LineNr">224 </span>    <span class="subxS1Comment"># . clear-stream(_test-stream)</span>
<span id="L225" class="LineNr">225 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L226" class="LineNr">226 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L227" class="LineNr">227 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L228" class="LineNr">228 </span>    e8/call  <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L229" class="LineNr">229 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L230" class="LineNr">230 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              4/imm32           <span class="subxComment"># add to esp</span>
<span id="L231" class="LineNr">231 </span>    <span class="subxComment"># print-int32-decimal(_test-stream, -9)</span>
<span id="L232" class="LineNr">232 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L233" class="LineNr">233 </span>    68/push  -9/imm32
<span id="L234" class="LineNr">234 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L235" class="LineNr">235 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L236" class="LineNr">236 </span>    e8/call  <a href='074print-int-decimal.subx.html#L8'>print-int32-decimal</a>/disp32
<span id="L237" class="LineNr">237 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L238" class="LineNr">238 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              8/imm32           <span class="subxComment"># add to esp</span>
<span id="L239" class="Folded">239 </span><span class="Folded">+-- 26 lines: #?     # dump _test-stream ---------------------------------------------------------------------------------------------------------------------</span>
<span id="L265" class="LineNr">265 </span>    <span class="subxComment"># check-stream-equal(_test-stream, &quot;-9&quot;, msg)</span>
<span id="L266" class="LineNr">266 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L267" class="LineNr">267 </span>    68/push  <span class="Constant">&quot;F - test-print-int32-decimal-negative&quot;</span>/imm32
<span id="L268" class="LineNr">268 </span>    68/push  <span class="Constant">&quot;-9&quot;</span>/imm32
<span id="L269" class="LineNr">269 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L270" class="LineNr">270 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L271" class="LineNr">271 </span>    e8/call  <a href='058stream-equal.subx.html#L193'>check-stream-equal</a>/disp32
<span id="L272" class="LineNr">272 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L273" class="LineNr">273 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L274" class="LineNr">274 </span>    <span class="subxS1Comment"># . end</span>
<span id="L275" class="LineNr">275 </span>    c3/return
<span id="L276" class="LineNr">276 </span>
<span id="L277" class="LineNr">277 </span><span class="subxTest">test-print-int32-decimal-negative-multiple-digits</span>:
<span id="L278" class="LineNr">278 </span>    <span class="subxH1Comment"># - check that a multi-digit number converts correctly</span>
<span id="L279" class="LineNr">279 </span>    <span class="subxComment"># setup</span>
<span id="L280" class="LineNr">280 </span>    <span class="subxS1Comment"># . clear-stream(_test-stream)</span>
<span id="L281" class="LineNr">281 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L282" class="LineNr">282 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L283" class="LineNr">283 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L284" class="LineNr">284 </span>    e8/call  <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L285" class="LineNr">285 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L286" class="LineNr">286 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              4/imm32           <span class="subxComment"># add to esp</span>
<span id="L287" class="LineNr">287 </span>    <span class="subxComment"># print-int32-decimal(_test-stream, -10)</span>
<span id="L288" class="LineNr">288 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L289" class="LineNr">289 </span>    68/push  -0xa/imm32
<span id="L290" class="LineNr">290 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L291" class="LineNr">291 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L292" class="LineNr">292 </span>    e8/call  <a href='074print-int-decimal.subx.html#L8'>print-int32-decimal</a>/disp32
<span id="L293" class="LineNr">293 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L294" class="LineNr">294 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              8/imm32           <span class="subxComment"># add to esp</span>
<span id="L295" class="LineNr">295 </span>    <span class="subxComment"># check-stream-equal(_test-stream, &quot;-10&quot;, msg)</span>
<span id="L296" class="LineNr">296 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L297" class="LineNr">297 </span>    68/push  <span class="Constant">&quot;F - test-print-int32-decimal-negative-multiple-digits&quot;</span>/imm32
<span id="L298" class="LineNr">298 </span>    68/push  <span class="Constant">&quot;-10&quot;</span>/imm32
<span id="L299" class="LineNr">299 </span>    68/push  <a href='057write.subx.html#L148'>_test-stream</a>/imm32
<span id="L300" class="LineNr">300 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L301" class="LineNr">301 </span>    e8/call  <a href='058stream-equal.subx.html#L193'>check-stream-equal</a>/disp32
<span id="L302" class="LineNr">302 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L303" class="LineNr">303 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L304" class="LineNr">304 </span>    <span class="subxS1Comment"># . end</span>
<span id="L305" class="LineNr">305 </span>    c3/return
<span id="L306" class="LineNr">306 </span>
<span id="L307" class="LineNr">307 </span><span class="subxS2Comment"># . . vim&#0058;nowrap:textwidth=0</span>
</pre>
</body>
</html>
<!-- vim: set foldmethod=manual : -->
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-12-02 19:30:30 +0000