]>
Commit | Line | Data |
---|---|---|
72e2ffee DSH |
1 | #!/usr/local/bin/perl |
2 | ||
3 | package x86nasm; | |
4 | ||
5 | $label="L000"; | |
a8c65b40 | 6 | $under=($main'netware)?'':'_'; |
72e2ffee DSH |
7 | |
8 | %lb=( 'eax', 'al', | |
9 | 'ebx', 'bl', | |
10 | 'ecx', 'cl', | |
11 | 'edx', 'dl', | |
12 | 'ax', 'al', | |
13 | 'bx', 'bl', | |
14 | 'cx', 'cl', | |
15 | 'dx', 'dl', | |
16 | ); | |
17 | ||
18 | %hb=( 'eax', 'ah', | |
19 | 'ebx', 'bh', | |
20 | 'ecx', 'ch', | |
21 | 'edx', 'dh', | |
22 | 'ax', 'ah', | |
23 | 'bx', 'bh', | |
24 | 'cx', 'ch', | |
25 | 'dx', 'dh', | |
26 | ); | |
27 | ||
28 | sub main'asm_init_output { @out=(); } | |
29 | sub main'asm_get_output { return(@out); } | |
30 | sub main'get_labels { return(@labels); } | |
bbdb5438 DSH |
31 | |
32 | sub main'external_label | |
33 | { | |
34 | push(@labels,@_); | |
35 | foreach (@_) { | |
a8c65b40 AP |
36 | push(@out,".") if ($main'mwerks); |
37 | push(@out, "extern\t${under}$_\n"); | |
bbdb5438 DSH |
38 | } |
39 | } | |
72e2ffee DSH |
40 | |
41 | sub main'LB | |
42 | { | |
43 | (defined($lb{$_[0]})) || die "$_[0] does not have a 'low byte'\n"; | |
44 | return($lb{$_[0]}); | |
45 | } | |
46 | ||
47 | sub main'HB | |
48 | { | |
49 | (defined($hb{$_[0]})) || die "$_[0] does not have a 'high byte'\n"; | |
50 | return($hb{$_[0]}); | |
51 | } | |
52 | ||
53 | sub main'BP | |
54 | { | |
55 | &get_mem("BYTE",@_); | |
56 | } | |
57 | ||
58 | sub main'DWP | |
59 | { | |
60 | &get_mem("DWORD",@_); | |
61 | } | |
62 | ||
10e7d6d5 AP |
63 | sub main'QWP |
64 | { | |
a8c65b40 | 65 | &get_mem("",@_); |
10e7d6d5 AP |
66 | } |
67 | ||
bbdb5438 DSH |
68 | sub main'BC |
69 | { | |
a8c65b40 | 70 | return (($main'mwerks)?"":"BYTE ")."@_"; |
bbdb5438 DSH |
71 | } |
72 | ||
73 | sub main'DWC | |
74 | { | |
a8c65b40 | 75 | return (($main'mwerks)?"":"DWORD ")."@_"; |
bbdb5438 DSH |
76 | } |
77 | ||
72e2ffee DSH |
78 | sub main'stack_push |
79 | { | |
80 | my($num)=@_; | |
81 | $stack+=$num*4; | |
82 | &main'sub("esp",$num*4); | |
83 | } | |
84 | ||
85 | sub main'stack_pop | |
86 | { | |
87 | my($num)=@_; | |
88 | $stack-=$num*4; | |
89 | &main'add("esp",$num*4); | |
90 | } | |
91 | ||
92 | sub get_mem | |
93 | { | |
94 | my($size,$addr,$reg1,$reg2,$idx)=@_; | |
95 | my($t,$post); | |
a8c65b40 AP |
96 | my($ret)=$size; |
97 | if ($ret ne "") | |
98 | { | |
99 | $ret .= " PTR" if ($main'mwerks); | |
100 | $ret .= " "; | |
101 | } | |
102 | $ret .= "["; | |
72e2ffee DSH |
103 | $addr =~ s/^\s+//; |
104 | if ($addr =~ /^(.+)\+(.+)$/) | |
105 | { | |
106 | $reg2=&conv($1); | |
a8c65b40 | 107 | $addr="$under$2"; |
72e2ffee | 108 | } |
556b8f3f | 109 | elsif ($addr =~ /^[_a-z][_a-z0-9]*$/i) |
72e2ffee | 110 | { |
a8c65b40 | 111 | $addr="$under$addr"; |
72e2ffee DSH |
112 | } |
113 | ||
270fa8ae AP |
114 | if ($addr =~ /^.+\-.+$/) { $addr="($addr)"; } |
115 | ||
72e2ffee DSH |
116 | $reg1="$regs{$reg1}" if defined($regs{$reg1}); |
117 | $reg2="$regs{$reg2}" if defined($regs{$reg2}); | |
118 | if (($addr ne "") && ($addr ne 0)) | |
119 | { | |
120 | if ($addr !~ /^-/) | |
121 | { $ret.="${addr}+"; } | |
122 | else { $post=$addr; } | |
123 | } | |
124 | if ($reg2 ne "") | |
125 | { | |
126 | $t=""; | |
127 | $t="*$idx" if ($idx != 0); | |
128 | $reg1="+".$reg1 if ("$reg1$post" ne ""); | |
129 | $ret.="$reg2$t$reg1$post]"; | |
130 | } | |
131 | else | |
132 | { | |
133 | $ret.="$reg1$post]" | |
134 | } | |
270fa8ae | 135 | $ret =~ s/\+\]/]/; # in case $addr was the only argument |
72e2ffee DSH |
136 | return($ret); |
137 | } | |
138 | ||
139 | sub main'mov { &out2("mov",@_); } | |
140 | sub main'movb { &out2("mov",@_); } | |
141 | sub main'and { &out2("and",@_); } | |
142 | sub main'or { &out2("or",@_); } | |
143 | sub main'shl { &out2("shl",@_); } | |
144 | sub main'shr { &out2("shr",@_); } | |
145 | sub main'xor { &out2("xor",@_); } | |
146 | sub main'xorb { &out2("xor",@_); } | |
147 | sub main'add { &out2("add",@_); } | |
148 | sub main'adc { &out2("adc",@_); } | |
149 | sub main'sub { &out2("sub",@_); } | |
c85c5c40 | 150 | sub main'sbb { &out2("sbb",@_); } |
72e2ffee DSH |
151 | sub main'rotl { &out2("rol",@_); } |
152 | sub main'rotr { &out2("ror",@_); } | |
153 | sub main'exch { &out2("xchg",@_); } | |
154 | sub main'cmp { &out2("cmp",@_); } | |
155 | sub main'lea { &out2("lea",@_); } | |
156 | sub main'mul { &out1("mul",@_); } | |
157 | sub main'div { &out1("div",@_); } | |
158 | sub main'dec { &out1("dec",@_); } | |
159 | sub main'inc { &out1("inc",@_); } | |
160 | sub main'jmp { &out1("jmp",@_); } | |
161 | sub main'jmp_ptr { &out1p("jmp",@_); } | |
162 | ||
163 | # This is a bit of a kludge: declare all branches as NEAR. | |
a8c65b40 AP |
164 | $near=($main'mwerks)?'':'NEAR'; |
165 | sub main'je { &out1("je $near",@_); } | |
166 | sub main'jle { &out1("jle $near",@_); } | |
167 | sub main'jz { &out1("jz $near",@_); } | |
168 | sub main'jge { &out1("jge $near",@_); } | |
169 | sub main'jl { &out1("jl $near",@_); } | |
170 | sub main'ja { &out1("ja $near",@_); } | |
171 | sub main'jae { &out1("jae $near",@_); } | |
172 | sub main'jb { &out1("jb $near",@_); } | |
173 | sub main'jbe { &out1("jbe $near",@_); } | |
174 | sub main'jc { &out1("jc $near",@_); } | |
175 | sub main'jnc { &out1("jnc $near",@_); } | |
176 | sub main'jnz { &out1("jnz $near",@_); } | |
177 | sub main'jne { &out1("jne $near",@_); } | |
178 | sub main'jno { &out1("jno $near",@_); } | |
72e2ffee DSH |
179 | |
180 | sub main'push { &out1("push",@_); $stack+=4; } | |
181 | sub main'pop { &out1("pop",@_); $stack-=4; } | |
c85c5c40 AP |
182 | sub main'pushf { &out0("pushfd"); $stack+=4; } |
183 | sub main'popf { &out0("popfd"); $stack-=4; } | |
72e2ffee DSH |
184 | sub main'bswap { &out1("bswap",@_); &using486(); } |
185 | sub main'not { &out1("not",@_); } | |
a8c65b40 | 186 | sub main'call { &out1("call",($_[0]=~/^\@L/?'':$under).$_[0]); } |
3ebf898e | 187 | sub main'call_ptr { &out1p("call",@_); } |
72e2ffee DSH |
188 | sub main'ret { &out0("ret"); } |
189 | sub main'nop { &out0("nop"); } | |
10e7d6d5 AP |
190 | sub main'test { &out2("test",@_); } |
191 | sub main'bt { &out2("bt",@_); } | |
192 | sub main'leave { &out0("leave"); } | |
14e21f86 AP |
193 | sub main'cpuid { &out0("cpuid"); } |
194 | sub main'rdtsc { &out0("rdtsc"); } | |
c85c5c40 | 195 | sub main'halt { &out0("hlt"); } |
914c2a28 | 196 | sub main'movz { &out2("movzx",@_); } |
addb6e16 | 197 | sub main'neg { &out1("neg",@_); } |
3d5fd312 | 198 | sub main'cld { &out0("cld"); } |
10e7d6d5 AP |
199 | |
200 | # SSE2 | |
201 | sub main'emms { &out0("emms"); } | |
202 | sub main'movd { &out2("movd",@_); } | |
203 | sub main'movq { &out2("movq",@_); } | |
204 | sub main'movdqu { &out2("movdqu",@_); } | |
205 | sub main'movdqa { &out2("movdqa",@_); } | |
206 | sub main'movdq2q{ &out2("movdq2q",@_); } | |
207 | sub main'movq2dq{ &out2("movq2dq",@_); } | |
208 | sub main'paddq { &out2("paddq",@_); } | |
209 | sub main'pmuludq{ &out2("pmuludq",@_); } | |
210 | sub main'psrlq { &out2("psrlq",@_); } | |
211 | sub main'psllq { &out2("psllq",@_); } | |
212 | sub main'pxor { &out2("pxor",@_); } | |
213 | sub main'por { &out2("por",@_); } | |
214 | sub main'pand { &out2("pand",@_); } | |
72e2ffee DSH |
215 | |
216 | sub out2 | |
217 | { | |
218 | my($name,$p1,$p2)=@_; | |
219 | my($l,$t); | |
220 | ||
221 | push(@out,"\t$name\t"); | |
a8c65b40 AP |
222 | if (!$main'mwerks and $name eq "lea") |
223 | { | |
224 | $p1 =~ s/^[^\[]*\[/\[/; | |
225 | $p2 =~ s/^[^\[]*\[/\[/; | |
226 | } | |
72e2ffee DSH |
227 | $t=&conv($p1).","; |
228 | $l=length($t); | |
229 | push(@out,$t); | |
230 | $l=4-($l+9)/8; | |
231 | push(@out,"\t" x $l); | |
232 | push(@out,&conv($p2)); | |
233 | push(@out,"\n"); | |
234 | } | |
235 | ||
236 | sub out0 | |
237 | { | |
238 | my($name)=@_; | |
239 | ||
240 | push(@out,"\t$name\n"); | |
241 | } | |
242 | ||
243 | sub out1 | |
244 | { | |
245 | my($name,$p1)=@_; | |
246 | my($l,$t); | |
247 | push(@out,"\t$name\t".&conv($p1)."\n"); | |
248 | } | |
249 | ||
250 | sub conv | |
251 | { | |
252 | my($p)=@_; | |
253 | $p =~ s/0x([0-9A-Fa-f]+)/0$1h/; | |
254 | return $p; | |
255 | } | |
256 | ||
257 | sub using486 | |
258 | { | |
259 | return if $using486; | |
260 | $using486++; | |
261 | grep(s/\.386/\.486/,@out); | |
262 | } | |
263 | ||
264 | sub main'file | |
265 | { | |
db22e5fa | 266 | if ($main'mwerks) { push(@out,".section\t.text\n"); } |
9ddeefe3 AP |
267 | else { |
268 | local $tmp=<<___; | |
269 | %ifdef __omf__ | |
270 | section code use32 class=code | |
271 | %else | |
272 | section .text | |
273 | %endif | |
274 | ___ | |
275 | push(@out,$tmp); | |
276 | } | |
72e2ffee DSH |
277 | } |
278 | ||
279 | sub main'function_begin | |
280 | { | |
281 | my($func,$extra)=@_; | |
282 | ||
283 | push(@labels,$func); | |
284 | my($tmp)=<<"EOF"; | |
a8c65b40 AP |
285 | global $under$func |
286 | $under$func: | |
72e2ffee DSH |
287 | push ebp |
288 | push ebx | |
289 | push esi | |
290 | push edi | |
291 | EOF | |
292 | push(@out,$tmp); | |
293 | $stack=20; | |
294 | } | |
295 | ||
296 | sub main'function_begin_B | |
297 | { | |
298 | my($func,$extra)=@_; | |
299 | my($tmp)=<<"EOF"; | |
a8c65b40 AP |
300 | global $under$func |
301 | $under$func: | |
72e2ffee DSH |
302 | EOF |
303 | push(@out,$tmp); | |
304 | $stack=4; | |
305 | } | |
306 | ||
307 | sub main'function_end | |
308 | { | |
309 | my($func)=@_; | |
310 | ||
311 | my($tmp)=<<"EOF"; | |
312 | pop edi | |
313 | pop esi | |
314 | pop ebx | |
315 | pop ebp | |
316 | ret | |
317 | EOF | |
318 | push(@out,$tmp); | |
319 | $stack=0; | |
320 | %label=(); | |
321 | } | |
322 | ||
323 | sub main'function_end_B | |
324 | { | |
325 | $stack=0; | |
326 | %label=(); | |
327 | } | |
328 | ||
329 | sub main'function_end_A | |
330 | { | |
331 | my($func)=@_; | |
332 | ||
333 | my($tmp)=<<"EOF"; | |
334 | pop edi | |
335 | pop esi | |
336 | pop ebx | |
337 | pop ebp | |
338 | ret | |
339 | EOF | |
340 | push(@out,$tmp); | |
341 | } | |
342 | ||
343 | sub main'file_end | |
344 | { | |
345 | } | |
346 | ||
347 | sub main'wparam | |
348 | { | |
349 | my($num)=@_; | |
350 | ||
351 | return(&main'DWP($stack+$num*4,"esp","",0)); | |
352 | } | |
353 | ||
354 | sub main'swtmp | |
355 | { | |
356 | return(&main'DWP($_[0]*4,"esp","",0)); | |
357 | } | |
358 | ||
359 | # Should use swtmp, which is above esp. Linix can trash the stack above esp | |
360 | #sub main'wtmp | |
361 | # { | |
362 | # my($num)=@_; | |
363 | # | |
364 | # return(&main'DWP(-(($num+1)*4),"esp","",0)); | |
365 | # } | |
366 | ||
367 | sub main'comment | |
368 | { | |
369 | foreach (@_) | |
370 | { | |
371 | push(@out,"\t; $_\n"); | |
372 | } | |
373 | } | |
374 | ||
d1df5b43 AP |
375 | sub main'public_label |
376 | { | |
377 | $label{$_[0]}="${under}${_[0]}" if (!defined($label{$_[0]})); | |
378 | push(@out,"global\t$label{$_[0]}\n"); | |
379 | } | |
380 | ||
72e2ffee DSH |
381 | sub main'label |
382 | { | |
383 | if (!defined($label{$_[0]})) | |
384 | { | |
a8c65b40 | 385 | $label{$_[0]}="\@${label}${_[0]}"; |
72e2ffee DSH |
386 | $label++; |
387 | } | |
388 | return($label{$_[0]}); | |
389 | } | |
390 | ||
391 | sub main'set_label | |
392 | { | |
393 | if (!defined($label{$_[0]})) | |
394 | { | |
a8c65b40 | 395 | $label{$_[0]}="\@${label}${_[0]}"; |
72e2ffee DSH |
396 | $label++; |
397 | } | |
d1df5b43 AP |
398 | if ($_[1]!=0 && $_[1]>1) |
399 | { | |
400 | main'align($_[1]); | |
401 | } | |
72e2ffee DSH |
402 | push(@out,"$label{$_[0]}:\n"); |
403 | } | |
404 | ||
d1593e6b AP |
405 | sub main'data_byte |
406 | { | |
407 | push(@out,(($main'mwerks)?".byte\t":"DB\t").join(',',@_)."\n"); | |
408 | } | |
409 | ||
72e2ffee DSH |
410 | sub main'data_word |
411 | { | |
a8c65b40 | 412 | push(@out,(($main'mwerks)?".long\t":"DD\t").join(',',@_)."\n"); |
10e7d6d5 AP |
413 | } |
414 | ||
415 | sub main'align | |
416 | { | |
a8c65b40 AP |
417 | push(@out,".") if ($main'mwerks); |
418 | push(@out,"align\t$_[0]\n"); | |
72e2ffee DSH |
419 | } |
420 | ||
421 | sub out1p | |
422 | { | |
423 | my($name,$p1)=@_; | |
424 | my($l,$t); | |
425 | ||
3ebf898e | 426 | push(@out,"\t$name\t".&conv($p1)."\n"); |
72e2ffee | 427 | } |
6f7ac8e1 | 428 | |
02bf9a15 AP |
429 | sub main'picmeup |
430 | { | |
431 | local($dst,$sym)=@_; | |
432 | &main'lea($dst,&main'DWP($sym)); | |
433 | } | |
434 | ||
6f7ac8e1 | 435 | sub main'blindpop { &out1("pop",@_); } |
a8c65b40 AP |
436 | |
437 | sub main'initseg | |
438 | { | |
439 | local($f)=@_; | |
440 | if ($main'win32) | |
441 | { | |
442 | local($tmp)=<<___; | |
3ebf898e | 443 | segment .CRT\$XCU data |
a8c65b40 AP |
444 | extern $under$f |
445 | DD $under$f | |
446 | ___ | |
447 | push(@out,$tmp); | |
448 | } | |
449 | } | |
450 | ||
451 | 1; |