4 |
|
* Based on work Copyright 1995, 1996 Bernd Schmidt |
5 |
|
* Changes for UAE-JIT Copyright 2000 Bernd Meyer |
6 |
|
* |
7 |
< |
* Adaptation for Basilisk II and improvements, copyright 2000-2004 |
7 |
> |
* Adaptation for Basilisk II and improvements, copyright 2000-2005 |
8 |
|
* Gwenole Beauchesne |
9 |
|
* |
10 |
< |
* Basilisk II (C) 1997-2004 Christian Bauer |
10 |
> |
* Basilisk II (C) 1997-2005 Christian Bauer |
11 |
|
* |
12 |
|
* This program is free software; you can redistribute it and/or modify |
13 |
|
* it under the terms of the GNU General Public License as published by |
1100 |
|
"\tint one=scratchie++;\n" |
1101 |
|
"\tif (needed_flags&FLAG_Z) {\n" |
1102 |
|
"\tmov_l_ri(zero,0);\n" |
1103 |
< |
"\tmov_l_ri(one,1);\n" |
1103 |
> |
"\tmov_l_ri(one,-1);\n" |
1104 |
|
"\tmake_flags_live();\n" |
1105 |
|
"\tcmov_l_rr(zero,one,5);\n" |
1106 |
|
"\t}\n"); |
1123 |
|
comprintf("\tlive_flags();\n"); |
1124 |
|
comprintf("\tif (needed_flags&FLAG_Z) {\n" |
1125 |
|
"\tcmov_l_rr(zero,one,5);\n" |
1126 |
< |
"\tsetzflg_l(zero);\n" |
1126 |
> |
"\tset_zero(zero, one);\n" /* No longer need one */ |
1127 |
|
"\tlive_flags();\n" |
1128 |
|
"\t}\n"); |
1129 |
|
comprintf("\tend_needflags();\n"); |
1365 |
|
genamode (curi->dmode, "dstreg", curi->size, "dst", 1, 0); |
1366 |
|
start_brace(); |
1367 |
|
comprintf("\tint s=scratchie++;\n" |
1368 |
+ |
"\tint tmp=scratchie++;\n" |
1369 |
|
"\tmov_l_rr(s,src);\n"); |
1370 |
|
if (curi->size == sz_byte) |
1371 |
|
comprintf("\tand_l_ri(s,7);\n"); |
1381 |
|
case i_BCLR: op="btr"; break; |
1382 |
|
case i_BSET: op="bts"; break; |
1383 |
|
case i_BTST: op="bt"; need_write=0; break; |
1384 |
+ |
default: abort(); |
1385 |
|
} |
1386 |
|
comprintf("\t%s_l_rr(dst,s);\n" /* Answer now in C */ |
1387 |
|
"\tsbb_l(s,s);\n" /* s is 0 if bit was 0, -1 otherwise */ |
1389 |
|
"\tdont_care_flags();\n",op); |
1390 |
|
if (!noflags) { |
1391 |
|
comprintf("\tstart_needflags();\n" |
1392 |
< |
"\tsetzflg_l(s);\n" |
1392 |
> |
"\tset_zero(s,tmp);\n" |
1393 |
|
"\tlive_flags();\n" |
1394 |
|
"\tend_needflags();\n"); |
1395 |
|
} |