Mercurial > hg-old > index.cgi
annotate src/insn_gen.c @ 33:74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
author | lost |
---|---|
date | Fri, 02 Jan 2009 05:02:47 +0000 |
parents | 34568fab6058 |
children | b29eec6f3819 |
rev | line source |
---|---|
0 | 1 /* |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
2 insn_gen.c, Copyright © 2009 William Astle |
4
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
3 |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
4 This file is part of LWASM. |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
5 |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
6 LWASM is free software: you can redistribute it and/or modify it under the |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
7 terms of the GNU General Public License as published by the Free Software |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
8 Foundation, either version 3 of the License, or (at your option) any later |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
9 version. |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
10 |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
11 This program is distributed in the hope that it will be useful, but WITHOUT |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
14 more details. |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
15 |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
16 You should have received a copy of the GNU General Public License along with |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
17 this program. If not, see <http://www.gnu.org/licenses/>. |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
18 |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
19 Contains code for parsing general addressing modes (IMM+DIR+EXT+IND) |
34568fab6058
Fixed package to include all required files; also added copyright preamble to all source files
lost
parents:
0
diff
changeset
|
20 */ |
0 | 21 |
22 #include <ctype.h> | |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
23 #include <stdlib.h> |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
24 |
0 | 25 #include "lwasm.h" |
26 #include "instab.h" | |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
27 #include "expr.h" |
0 | 28 |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
29 extern void insn_indexed_aux(asmstate_t *as, lwasm_line_t *l, const char **p, int *b1, int *b2, int *b3); |
0 | 30 |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
31 void insn_gen_aux(asmstate_t *as, lwasm_line_t *l, char **optr, int opnum) |
0 | 32 { |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
33 int b1 = -1, b2 = -1, b3 = -1; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
34 |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
35 const char *optr2; |
0 | 36 int v1, tv, rval; |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
37 lwasm_expr_stack_t *s; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
38 int f8 = 0; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
39 int f16 = 0; |
0 | 40 |
41 optr2 = *optr; | |
42 while (*optr2 && !isspace(*optr2) && *optr2 != ',') optr2++ | |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
43 /* do nothing */ ; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
44 |
0 | 45 if (*optr2 != ',' && **optr != '[') |
46 { | |
47 // not indexed | |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
48 if (l -> fsize == 1) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
49 f8 = 1; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
50 else if (l -> fsize == 2) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
51 f16 = 1; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
52 |
0 | 53 if (**optr == '<') |
54 { | |
55 (*optr)++; | |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
56 f8 = 1; |
0 | 57 } |
58 else if (**optr == '>') | |
59 { | |
60 (*optr)++; | |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
61 f16 = 1; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
62 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
63 s = lwasm_expr_eval(*optr, NULL); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
64 if (!s) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
65 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
66 register_error(as, l, 1, "Bad expression"); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
67 return; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
68 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
69 if (!lwasm_expr_is_constant(s)) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
70 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
71 f16 = 1; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
72 l -> fsize = 2; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
73 register_error(as, l, 2, "Incomplete reference"); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
74 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
75 v1 = lwasm_expr_get_value(s); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
76 lwasm_expr_stack_free(s); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
77 |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
78 if (f8 || (!f16 && v1 >= -128 && v1 <= 255)) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
79 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
80 v1 = v1 & 0xffff; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
81 tv = v1 - ((as -> dpval) << 8); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
82 if (tv < 0 || tv > 0xff) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
83 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
84 register_error(as, l, 2, "Byte overflow"); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
85 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
86 v1 = v1 & 0xff; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
87 lwasm_emitop(as, l, instab[opnum].ops[0]); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
88 lwasm_emit(as, l, v1 & 0xff); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
89 return; |
0 | 90 } |
91 else | |
92 { | |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
93 // everything else is 16 bit.... |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
94 lwasm_emitop(as, l, instab[opnum].ops[2]); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
95 lwasm_emit(as, l, v1 >> 8); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
96 lwasm_emit(as, l, v1 & 0xff); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
97 return; |
0 | 98 } |
99 } | |
100 | |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
101 lwasm_emitop(as, l, instab[opnum].ops[1]); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
102 insn_indexed_aux(as, l, (const char **)optr, &b1, &b2, &b3); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
103 if (b1 != -1) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
104 lwasm_emit(as, l, b1); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
105 if (b2 != -1) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
106 lwasm_emit(as, l, b2); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
107 if (b3 != -1) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
108 lwasm_emit(as, l, b3); |
0 | 109 return; |
110 } | |
111 | |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
112 // the various insn_gen? functions have an immediate mode of ? bits |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
113 OPFUNC(insn_gen0) |
0 | 114 { |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
115 if (**p == '#') |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
116 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
117 register_error(as, l, 1, "Immediate mode not allowed"); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
118 return; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
119 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
120 |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
121 // handle non-immediate |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
122 insn_gen_aux(as, l, p, opnum); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
123 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
124 |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
125 OPFUNC(insn_gen8) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
126 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
127 lwasm_expr_stack_t *s; |
0 | 128 int rval; |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
129 |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
130 if (**p == '#') |
0 | 131 { |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
132 lwasm_emitop(as, l, instab[opnum].ops[3]); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
133 (*p)++; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
134 s = lwasm_expr_eval(*p, NULL); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
135 if (!s) |
0 | 136 { |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
137 register_error(as, l, 1, "Bad expression"); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
138 rval = 0; |
0 | 139 } |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
140 else |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
141 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
142 if (!lwasm_expr_is_constant(s)) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
143 register_error(as, l, 2, "Incomplete reference"); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
144 rval = lwasm_expr_get_value(s); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
145 lwasm_expr_stack_free(s); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
146 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
147 if (rval < -128 || rval > 255) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
148 register_error(as, l, 2, "Byte overflow"); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
149 lwasm_emit(as, l, rval & 0xff); |
0 | 150 return; |
151 } | |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
152 |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
153 insn_gen_aux(as, l, p, opnum); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
154 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
155 |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
156 OPFUNC(insn_gen16) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
157 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
158 lwasm_expr_stack_t *s; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
159 int rval; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
160 |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
161 if (**p == '#') |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
162 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
163 lwasm_emitop(as, l, instab[opnum].ops[3]); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
164 (*p)++; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
165 s = lwasm_expr_eval(*p, NULL); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
166 if (!s) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
167 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
168 register_error(as, l, 1, "Bad expression"); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
169 rval = 0; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
170 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
171 else |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
172 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
173 if (!lwasm_expr_is_constant(s)) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
174 register_error(as, l, 2, "Incomplete reference"); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
175 rval = lwasm_expr_get_value(s); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
176 lwasm_expr_stack_free(s); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
177 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
178 lwasm_emit(as, l, (rval >> 8) & 0xff); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
179 lwasm_emit(as, l, rval & 0xff); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
180 return; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
181 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
182 |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
183 insn_gen_aux(as, l, p, opnum); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
184 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
185 |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
186 OPFUNC(insn_gen32) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
187 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
188 lwasm_expr_stack_t *s; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
189 int rval; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
190 |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
191 if (**p == '#') |
0 | 192 { |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
193 lwasm_emitop(as, l, instab[opnum].ops[3]); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
194 (*p)++; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
195 s = lwasm_expr_eval(*p, NULL); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
196 if (!s) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
197 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
198 register_error(as, l, 1, "Bad expression"); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
199 rval = 0; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
200 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
201 else |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
202 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
203 if (!lwasm_expr_is_constant(s)) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
204 register_error(as, l, 2, "Incomplete reference"); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
205 rval = lwasm_expr_get_value(s); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
206 lwasm_expr_stack_free(s); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
207 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
208 lwasm_emit(as, l, (rval >> 24) & 0xff); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
209 lwasm_emit(as, l, (rval >> 16) & 0xff); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
210 lwasm_emit(as, l, (rval >> 8) & 0xff); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
211 lwasm_emit(as, l, rval & 0xff); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
212 return; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
213 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
214 |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
215 insn_gen_aux(as, l, p, opnum); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
216 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
217 |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
218 OPFUNC(insn_imm8) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
219 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
220 lwasm_expr_stack_t *s; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
221 int rval; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
222 |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
223 if (**p == '#') |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
224 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
225 lwasm_emitop(as, l, instab[opnum].ops[0]); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
226 (*p)++; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
227 s = lwasm_expr_eval(*p, NULL); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
228 if (!s) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
229 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
230 register_error(as, l, 1, "Bad expression"); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
231 rval = 0; |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
232 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
233 else |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
234 { |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
235 if (!lwasm_expr_is_constant(s)) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
236 register_error(as, l, 2, "Incomplete reference"); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
237 rval = lwasm_expr_get_value(s); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
238 lwasm_expr_stack_free(s); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
239 } |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
240 if (rval < -128 || rval > 255) |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
241 register_error(as, l, 2, "Byte overflow"); |
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
242 lwasm_emit(as, l, rval & 0xff); |
0 | 243 return; |
244 } | |
245 | |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
4
diff
changeset
|
246 register_error(as, l, 1, "Bad operand"); |
0 | 247 } |