Mercurial > hg-old > index.cgi
annotate lwasm/insn_indexed.c @ 408:2a94b2e64621
Started creation of lwdisasm
| author | lost@l-w.ca |
|---|---|
| date | Mon, 02 Aug 2010 13:24:07 -0600 |
| parents | eacdae8a1575 |
| children | 2d7255509130 |
| rev | line source |
|---|---|
| 339 | 1 /* |
| 2 insn_indexed.c | |
| 3 Copyright © 2009 William Astle | |
| 4 | |
| 5 This file is part of LWASM. | |
| 6 | |
| 7 LWASM is free software: you can redistribute it and/or modify it under the | |
| 8 terms of the GNU General Public License as published by the Free Software | |
| 9 Foundation, either version 3 of the License, or (at your option) any later | |
| 10 version. | |
| 11 | |
| 12 This program is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for | |
| 15 more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License along with | |
| 18 this program. If not, see <http://www.gnu.org/licenses/>. | |
| 19 */ | |
| 20 | |
| 21 /* | |
| 22 for handling indexed mode instructions | |
| 23 */ | |
| 24 | |
| 25 #include <config.h> | |
| 26 | |
| 27 #include <ctype.h> | |
| 28 #include <string.h> | |
| 29 | |
| 359 | 30 #include <lw_expr.h> |
| 31 | |
| 339 | 32 #include "lwasm.h" |
| 33 #include "instab.h" | |
| 34 | |
| 359 | 35 /* |
| 36 l -> lint: size of operand (0, 1, 2, -1 if not determined) | |
| 37 l -> pb: actual post byte (from "resolve" stage) or info passed | |
| 38 forward to the resolve stage (if l -> line is -1); 0x80 is indir | |
| 39 bits 0-2 are register number | |
| 40 */ | |
| 41 void insn_parse_indexed_aux(asmstate_t *as, line_t *l, char **p) | |
| 339 | 42 { |
| 43 struct opvals { char *opstr; int pb; }; | |
| 44 | |
| 45 static const char *regs = "X Y U S W PCRPC "; | |
| 46 static const struct opvals simpleindex[] = | |
| 47 { | |
| 48 {",x", 0x84}, {",y", 0xa4}, {",u", 0xc4}, {",s", 0xe4}, | |
| 49 {",x+", 0x80}, {",y+", 0xa0}, {",u+", 0xc0}, {",s+", 0xe0}, | |
| 50 {",x++", 0x81}, {",y++", 0xa1}, {",u++", 0xc1}, {",s++", 0xe1}, | |
| 51 {",-x", 0x82}, {",-y", 0xa2}, {",-u", 0xc2}, {",-s", 0xe2}, | |
| 52 {",--x", 0x83}, {",--y", 0xa3}, {",--u", 0xc3}, {",--s", 0xe3}, | |
| 53 {"a,x", 0x86}, {"a,y", 0xa6}, {"a,u", 0xc6}, {"a,s", 0xe6}, | |
| 54 {"b,x", 0x85}, {"b,y", 0xa5}, {"b,u", 0xc5}, {"b,s", 0xe5}, | |
| 55 {"e,x", 0x87}, {"e,y", 0xa7}, {"e,u", 0xc7}, {"e,s", 0xe7}, | |
| 56 {"f,x", 0x8a}, {"f,y", 0xaa}, {"f,u", 0xca}, {"f,s", 0xea}, | |
| 57 {"d,x", 0x8b}, {"d,y", 0xab}, {"d,u", 0xcb}, {"d,s", 0xed}, | |
| 58 {"w,x", 0x8e}, {"w,y", 0xae}, {"w,u", 0xce}, {"w,s", 0xee}, | |
| 59 {",w", 0x8f}, {",w++", 0xcf}, {",--w", 0xef}, | |
| 60 | |
| 61 {"[,x]", 0x94}, {"[,y]", 0xb4}, {"[,u", 0xd4}, {"[,s]", 0xf4}, | |
| 62 {"[,x++]", 0x91}, {"[,y++]", 0xb1}, {"[,u++]", 0xd1}, {"[,s++]", 0xf1}, | |
| 63 {"[,--x]", 0x93}, {"[,--y]", 0xb3}, {"[,--u]", 0xd3}, {"[,--s]", 0xf3}, | |
| 64 {"[a,x]", 0x96}, {"[a,y]", 0xb6}, {"[a,u]", 0xd6}, {"[a,s]", 0xf6}, | |
| 65 {"[b,x]", 0x95}, {"[b,y]", 0xb5}, {"[b,u]", 0xd5}, {"[b,s]", 0xf5}, | |
| 66 {"[e,x]", 0x97}, {"[e,y]", 0xb7}, {"[e,u]", 0xd7}, {"[e,s]", 0xf7}, | |
| 67 {"[f,x]", 0x9a}, {"[f,y]", 0xba}, {"[f,u]", 0xda}, {"[f,s]", 0xfa}, | |
| 68 {"[d,x]", 0x9b}, {"[d,y]", 0xbb}, {"[d,u]", 0xdb}, {"[d,s]", 0xfd}, | |
| 69 {"[w,x]", 0x9e}, {"[w,y]", 0xbe}, {"[w,u]", 0xde}, {"[w,s]", 0xfe}, | |
| 70 {"[,w]", 0x90}, {"[,w++]", 0xd0}, {"[,--w]", 0xf0}, | |
| 71 | |
| 72 { "", -1 } | |
| 73 }; | |
| 74 | |
| 75 static const char *regs9 = "X Y U S PCRPC "; | |
| 76 static const struct opvals simpleindex9[] = | |
| 77 { | |
| 78 {",x", 0x84}, {",y", 0xa4}, {",u", 0xc4}, {",s", 0xe4}, | |
| 79 {",x+", 0x80}, {",y+", 0xa0}, {",u+", 0xc0}, {",s+", 0xe0}, | |
| 80 {",x++", 0x81}, {",y++", 0xa1}, {",u++", 0xc1}, {",s++", 0xe1}, | |
| 81 {",-x", 0x82}, {",-y", 0xa2}, {",-u", 0xc2}, {",-s", 0xe2}, | |
| 82 {",--x", 0x83}, {",--y", 0xa3}, {",--u", 0xc3}, {",--s", 0xe3}, | |
| 83 {"a,x", 0x86}, {"a,y", 0xa6}, {"a,u", 0xc6}, {"a,s", 0xe6}, | |
| 84 {"b,x", 0x85}, {"b,y", 0xa5}, {"b,u", 0xc5}, {"b,s", 0xe5}, | |
| 85 {"d,x", 0x8b}, {"d,y", 0xab}, {"d,u", 0xcb}, {"d,s", 0xed}, | |
| 86 | |
| 87 {"[,x]", 0x94}, {"[,y]", 0xb4}, {"[,u", 0xd4}, {"[,s]", 0xf4}, | |
| 88 {"[,x++]", 0x91}, {"[,y++]", 0xb1}, {"[,u++]", 0xd1}, {"[,s++]", 0xf1}, | |
| 89 {"[,--x]", 0x93}, {"[,--y]", 0xb3}, {"[,--u]", 0xd3}, {"[,--s]", 0xf3}, | |
| 90 {"[a,x]", 0x96}, {"[a,y]", 0xb6}, {"[a,u]", 0xd6}, {"[a,s]", 0xf6}, | |
| 91 {"[b,x]", 0x95}, {"[b,y]", 0xb5}, {"[b,u]", 0xd5}, {"[b,s]", 0xf5}, | |
| 92 {"[d,x]", 0x9b}, {"[d,y]", 0xbb}, {"[d,u]", 0xdb}, {"[d,s]", 0xfd}, | |
| 93 | |
| 94 { "", -1 } | |
| 95 }; | |
| 96 char stbuf[25]; | |
| 97 int i, j, rn; | |
| 98 int indir = 0; | |
| 359 | 99 int f0 = 1; |
| 339 | 100 const struct opvals *simples; |
| 101 const char *reglist; | |
| 359 | 102 lw_expr_t e; |
| 103 | |
| 104 if (as -> target == TARGET_6809) | |
| 339 | 105 { |
| 106 simples = simpleindex9; | |
| 107 reglist = regs9; | |
| 108 } | |
| 109 else | |
| 110 { | |
| 111 simples = simpleindex; | |
| 112 reglist = regs; | |
| 113 } | |
| 114 | |
| 115 // fetch out operand for lookup | |
| 116 for (i = 0; i < 24; i++) | |
| 117 { | |
| 118 if (*((*p) + i) && !isspace(*((*p) + i))) | |
| 119 stbuf[i] = *((*p) + i); | |
| 120 else | |
| 121 break; | |
| 122 } | |
| 123 stbuf[i] = '\0'; | |
| 124 | |
| 125 // now look up operand in "simple" table | |
| 126 if (!*((*p) + i) || isspace(*((*p) + i))) | |
| 127 { | |
| 128 // do simple lookup | |
| 129 for (j = 0; simples[j].opstr[0]; j++) | |
| 130 { | |
| 131 if (!strcasecmp(stbuf, simples[j].opstr)) | |
| 132 break; | |
| 133 } | |
| 134 if (simples[j].opstr[0]) | |
| 135 { | |
| 359 | 136 l -> pb = simples[j].pb; |
| 137 l -> lint = 0; | |
| 339 | 138 (*p) += i; |
| 139 return; | |
| 140 } | |
| 141 } | |
| 142 | |
| 143 // now do the "hard" ones | |
| 144 | |
| 145 // is it indirect? | |
| 146 if (**p == '[') | |
| 147 { | |
| 148 indir = 1; | |
| 149 (*p)++; | |
| 150 } | |
| 151 | |
| 152 // look for a "," - all indexed modes have a "," except extended indir | |
| 153 rn = 0; | |
| 154 for (i = 0; (*p)[i] && !isspace((*p)[i]); i++) | |
| 155 { | |
| 156 if ((*p)[i] == ',') | |
| 157 { | |
| 158 rn = 1; | |
| 159 break; | |
| 160 } | |
| 161 } | |
| 162 | |
| 163 // if no "," and indirect, do extended indir | |
| 164 if (!rn && indir) | |
| 165 { | |
| 166 // extended indir | |
| 359 | 167 l -> pb = 0x9f; |
| 168 e = lwasm_parse_expr(as, p); | |
| 169 if (!e || **p != ']') | |
| 339 | 170 { |
| 359 | 171 lwasm_register_error(as, l, "Bad operand"); |
| 339 | 172 return; |
| 173 } | |
| 382 | 174 lwasm_save_expr(l, 0, e); |
| 339 | 175 |
| 176 (*p)++; | |
| 359 | 177 l -> lint = 2; |
| 339 | 178 return; |
| 179 } | |
| 180 | |
| 181 if (**p == '<') | |
| 182 { | |
| 359 | 183 l -> lint = 1; |
| 339 | 184 (*p)++; |
| 185 } | |
| 186 else if (**p == '>') | |
| 187 { | |
| 359 | 188 l -> lint = 2; |
| 339 | 189 (*p)++; |
| 190 } | |
| 191 | |
| 192 if (**p == '0' && *(*p+1) == ',') | |
| 193 { | |
| 194 f0 = 1; | |
| 195 } | |
| 196 | |
| 197 // now we have to evaluate the expression | |
| 359 | 198 e = lwasm_parse_expr(as, p); |
| 199 if (!e) | |
| 339 | 200 { |
| 359 | 201 lwasm_register_error(as, l, "Bad operand"); |
| 339 | 202 return; |
| 203 } | |
| 359 | 204 lwasm_save_expr(l, 0, e); |
| 205 | |
| 339 | 206 // now look for a comma; if not present, explode |
| 207 if (*(*p)++ != ',') | |
| 208 { | |
| 359 | 209 lwasm_register_error(as, l, "Bad operand"); |
| 339 | 210 return; |
| 211 } | |
| 212 | |
| 213 // now get the register | |
| 214 rn = lwasm_lookupreg3(reglist, p); | |
| 215 if (rn < 0) | |
| 216 { | |
| 359 | 217 lwasm_register_error(as, l, "Bad register"); |
| 339 | 218 return; |
| 219 } | |
| 220 | |
| 221 if (indir) | |
| 222 { | |
| 223 if (**p != ']') | |
| 224 { | |
| 359 | 225 lwasm_register_error(as, l, "Bad operand"); |
| 339 | 226 return; |
| 227 } | |
| 228 else | |
| 229 (*p)++; | |
| 230 } | |
| 231 | |
| 232 // nnnn,W is only 16 bit (or 0 bit) | |
| 233 if (rn == 4) | |
| 234 { | |
| 359 | 235 if (l -> lint == 1) |
| 339 | 236 { |
| 359 | 237 lwasm_register_error(as, l, "n,W cannot be 8 bit"); |
| 339 | 238 return; |
| 239 } | |
| 359 | 240 |
| 241 if (l -> lint == 2) | |
| 339 | 242 { |
| 359 | 243 l -> pb = indir ? 0xb0 : 0xcf; |
| 244 l -> lint = 2; | |
| 245 return; | |
| 246 } | |
| 247 | |
| 248 l -> pb = (0x80 * indir) | rn; | |
| 249 | |
| 250 /* [,w] and ,w | |
| 339 | 251 if (indir) |
| 252 *b1 = 0x90; | |
| 253 else | |
| 254 *b1 = 0x8f; | |
| 359 | 255 */ |
| 339 | 256 return; |
| 257 } | |
| 258 | |
| 259 // PCR? then we have PC relative addressing (like B??, LB??) | |
| 260 if (rn == 5) | |
| 261 { | |
| 359 | 262 lw_expr_t e1, e2; |
| 339 | 263 // external references are handled exactly the same as for |
| 264 // relative addressing modes | |
| 265 // on pass 1, adjust the expression for a subtraction of the | |
| 266 // current address | |
| 371 | 267 // e - (addr + linelen) => e - addr - linelen |
| 339 | 268 |
| 371 | 269 e2 = lw_expr_build(lw_expr_type_special, lwasm_expr_linelen, l); |
| 270 e1 = lw_expr_build(lw_expr_type_oper, lw_expr_oper_minus, e, e2); | |
| 271 lw_expr_destroy(e2); | |
| 272 e2 = lw_expr_build(lw_expr_type_oper, lw_expr_oper_minus, e1, l -> addr); | |
| 359 | 273 lw_expr_destroy(e1); |
| 371 | 274 lwasm_save_expr(l, 0, e2); |
| 339 | 275 } |
| 276 | |
| 359 | 277 l -> pb = (indir * 0x80) | rn | (f0 * 0x40); |
| 278 } | |
| 339 | 279 |
| 359 | 280 PARSEFUNC(insn_parse_indexed) |
| 281 { | |
| 282 l -> lint = -1; | |
| 283 insn_parse_indexed_aux(as, l, p); | |
| 284 | |
| 285 if (l -> lint != -1) | |
| 339 | 286 { |
| 359 | 287 l -> len = OPLEN(instab[l -> insn].ops[0]) + l -> lint + 1; |
| 339 | 288 } |
| 359 | 289 } |
| 339 | 290 |
| 382 | 291 void insn_resolve_indexed_aux(asmstate_t *as, line_t *l, int force, int elen) |
| 359 | 292 { |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
293 // here, we have an expression which needs to be |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
294 // resolved; the post byte is determined here as well |
| 382 | 295 lw_expr_t e, e2, e3; |
| 373 | 296 int pb = -1; |
| 297 int v; | |
| 382 | 298 |
| 299 if (l -> len != -1) | |
| 300 return; | |
| 301 | |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
302 e = lwasm_fetch_expr(l, 0); |
| 382 | 303 if (!lw_expr_istype(e, lw_expr_type_int)) |
| 304 { | |
| 305 // temporarily set the instruction length to see if we get a | |
| 306 // constant for our expression; if so, we can select an instruction | |
| 307 // size | |
| 308 e2 = lw_expr_copy(e); | |
| 309 // magic 2 for 8 bit (post byte + offset) | |
| 310 l -> len = OPLEN(instab[l -> insn].ops[0]) + elen + 2; | |
| 311 lwasm_reduce_expr(as, e2); | |
| 312 // l -> len += 1; | |
| 313 // e3 = lw_expr_copy(e); | |
| 314 // lwasm_reduce_expr(as, e3); | |
| 315 l -> len = -1; | |
| 316 if (lw_expr_istype(e2, lw_expr_type_int)) | |
| 317 { | |
| 318 v = lw_expr_intval(e2); | |
| 319 // we have a reducible expression here which depends on | |
| 320 // the size of this instruction | |
| 321 if (v < -128 || v > 127) | |
| 322 { | |
| 323 l -> lint = 2; | |
| 324 switch (l -> pb & 0x07) | |
| 325 { | |
| 326 case 0: | |
| 327 case 1: | |
| 328 case 2: | |
| 329 case 3: | |
| 330 pb = 0x89 | (l -> pb & 0x03) | (0x10 * (l -> pb & 0x80)); | |
| 331 break; | |
| 332 | |
| 333 case 4: // W | |
| 334 pb = (l -> pb & 0x80) ? 0xD0 : 0xCF; | |
| 335 break; | |
| 336 | |
| 337 case 5: // PCR | |
| 338 case 6: // PC | |
| 339 pb = (l -> pb & 0x80) ? 0x9D : 0x8D; | |
| 340 break; | |
| 341 } | |
| 342 | |
| 343 l -> pb = pb; | |
| 344 lw_expr_destroy(e2); | |
| 345 // lw_expr_destroy(e3); | |
| 346 return; | |
| 347 } | |
| 348 else if ((l -> pb & 0x80) || ((l -> pb & 0x07) > 3) || v < -16 || v > 15) | |
| 349 { | |
| 350 // if not a 5 bit value, is indirect, or is not X,Y,U,S | |
| 351 l -> lint = 1; | |
| 352 switch (l -> pb & 0x07) | |
| 353 { | |
| 354 case 0: | |
| 355 case 1: | |
| 356 case 2: | |
| 357 case 3: | |
| 358 pb = 0x88 | (l -> pb & 0x03) | (0x10 * (l -> pb & 0x80)); | |
| 359 break; | |
| 360 | |
| 361 case 4: // W | |
| 362 // use 16 bit because W doesn't have 8 bit, unless 0 | |
| 363 if (v == 0 && !(CURPRAGMA(l, PRAGMA_NOINDEX0TONONE) || l -> pb & 0x40)) | |
| 364 { | |
| 365 pb = (l -> pb & 0x80) ? 0x90 : 0x8F; | |
| 366 l -> lint = 0; | |
| 367 } | |
| 368 else | |
| 369 { | |
| 370 pb = (l -> pb & 0x80) ? 0xD0 : 0xCF; | |
| 371 l -> lint = 2; | |
| 372 } | |
| 373 break; | |
| 374 | |
| 375 case 5: // PCR | |
| 376 case 6: // PC | |
| 377 pb = (l -> pb & 0x80) ? 0x9C : 0x8C; | |
| 378 break; | |
| 379 } | |
| 380 | |
| 381 l -> pb = pb; | |
| 382 return; | |
| 383 } | |
| 384 else | |
| 385 { | |
| 386 // we have X,Y,U,S and a possible 16 bit here | |
| 387 l -> lint = 0; | |
| 388 | |
| 389 if (v == 0 && !(CURPRAGMA(l, PRAGMA_NOINDEX0TONONE) || l -> pb & 0x40)) | |
| 390 { | |
| 391 pb = (l -> pb & 0x03) << 5 | 0x84; | |
| 392 } | |
| 393 else | |
| 394 { | |
| 395 pb = (l -> pb & 0x03) << 5 | v & 0x1F; | |
| 396 } | |
| 397 l -> pb = pb; | |
| 398 return; | |
| 399 } | |
| 400 } | |
| 401 } | |
| 402 | |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
403 if (lw_expr_istype(e, lw_expr_type_int)) |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
404 { |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
405 // we know how big it is |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
406 v = lw_expr_intval(e); |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
407 if (v < -128 || v > 127) |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
408 { |
| 373 | 409 do16bit: |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
410 l -> lint = 2; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
411 switch (l -> pb & 0x07) |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
412 { |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
413 case 0: |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
414 case 1: |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
415 case 2: |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
416 case 3: |
| 373 | 417 pb = 0x89 | (l -> pb & 0x03) | (0x10 * (l -> pb & 0x80)); |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
418 break; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
419 |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
420 case 4: // W |
| 373 | 421 pb = (l -> pb & 0x80) ? 0xD0 : 0xCF; |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
422 break; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
423 |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
424 case 5: // PCR |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
425 case 6: // PC |
| 373 | 426 pb = (l -> pb & 0x80) ? 0x9D : 0x8D; |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
427 break; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
428 } |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
429 |
| 373 | 430 l -> pb = pb; |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
431 return; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
432 } |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
433 else if ((l -> pb & 0x80) || ((l -> pb & 0x07) > 3) || v < -16 || v > 15) |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
434 { |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
435 // if not a 5 bit value, is indirect, or is not X,Y,U,S |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
436 l -> lint = 1; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
437 switch (l -> pb & 0x07) |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
438 { |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
439 case 0: |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
440 case 1: |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
441 case 2: |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
442 case 3: |
| 373 | 443 pb = 0x88 | (l -> pb & 0x03) | (0x10 * (l -> pb & 0x80)); |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
444 break; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
445 |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
446 case 4: // W |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
447 // use 16 bit because W doesn't have 8 bit, unless 0 |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
448 if (v == 0 && !(CURPRAGMA(l, PRAGMA_NOINDEX0TONONE) || l -> pb & 0x40)) |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
449 { |
| 373 | 450 pb = (l -> pb & 0x80) ? 0x90 : 0x8F; |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
451 l -> lint = 0; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
452 } |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
453 else |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
454 { |
| 373 | 455 pb = (l -> pb & 0x80) ? 0xD0 : 0xCF; |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
456 l -> lint = 2; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
457 } |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
458 break; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
459 |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
460 case 5: // PCR |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
461 case 6: // PC |
| 373 | 462 pb = (l -> pb & 0x80) ? 0x9C : 0x8C; |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
463 break; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
464 } |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
465 |
| 373 | 466 l -> pb = pb; |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
467 return; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
468 } |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
469 else |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
470 { |
| 382 | 471 // we have X,Y,U,S and a possible 16 bit here |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
472 l -> lint = 0; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
473 |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
474 if (v == 0 && !(CURPRAGMA(l, PRAGMA_NOINDEX0TONONE) || l -> pb & 0x40)) |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
475 { |
| 382 | 476 pb = (l -> pb & 0x03) << 5 | 0x84; |
| 477 } | |
| 478 else | |
| 479 { | |
| 373 | 480 pb = (l -> pb & 0x03) << 5 | v & 0x1F; |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
481 } |
| 373 | 482 l -> pb = pb; |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
483 return; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
484 } |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
485 } |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
486 else |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
487 { |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
488 // we don't know how big it is |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
489 if (!force) |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
490 return; |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
491 // force 16 bit if we don't know |
|
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
492 l -> lint = 2; |
| 373 | 493 goto do16bit; |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
494 } |
| 339 | 495 } |
| 496 | |
| 359 | 497 RESOLVEFUNC(insn_resolve_indexed) |
| 339 | 498 { |
|
360
7d91ab7ac7d6
Indexed stage 2; set line structure to track pragmas in effect for that line
lost@starbug
parents:
359
diff
changeset
|
499 if (l -> lint == -1) |
| 382 | 500 insn_resolve_indexed_aux(as, l, force, 0); |
| 339 | 501 |
| 359 | 502 if (l -> lint != -1 && l -> pb != -1) |
| 503 { | |
| 504 l -> len = OPLEN(instab[l -> insn].ops[0]) + l -> lint + 1; | |
| 505 } | |
| 506 } | |
| 339 | 507 |
| 359 | 508 void insn_emit_indexed_aux(asmstate_t *as, line_t *l) |
| 509 { | |
| 510 lw_expr_t e; | |
| 511 | |
| 512 lwasm_emitop(l, instab[l -> insn].ops[0]); | |
| 513 lwasm_emitop(l, l -> pb); | |
| 514 if (l -> lint > 0) | |
| 515 { | |
| 516 e = lwasm_fetch_expr(l, 0); | |
| 517 lwasm_emitexpr(l, e, l -> lint); | |
| 518 } | |
| 339 | 519 } |
| 359 | 520 |
| 521 EMITFUNC(insn_emit_indexed) | |
| 522 { | |
| 523 insn_emit_indexed_aux(as, l); | |
| 524 } |