Branch data Line data Source code
1 : : #include "asar.h"
2 : : #include "assembleblock.h"
3 : : #include "asar_math.h"
4 : :
5 : : #define write1 write1_pick
6 : :
7 : 732 : static int64_t getnum_ck(const char* math)
8 : : {
9 [ + + ]: 732 : return pass == 2 ? getnum(math) : 0;
10 : : }
11 : :
12 : 0 : void asinit_superfx()
13 : : {
14 : 0 : }
15 : :
16 : 12 : void asend_superfx()
17 : : {
18 : 12 : }
19 : :
20 : 1284 : static void range(int min, int mid, int max)
21 : : {
22 [ + + - + ]: 1284 : if (mid<min || mid>max) asar_throw_error(0, error_type_block, error_id_superfx_invalid_register, min, max);
23 : 1284 : }
24 : :
25 : : enum reg_t {
26 : : reg_parr,
27 : : reg_r,
28 : : reg_hash,
29 : : };
30 : 10332 : static bool getreg(const char * par, int * reg, reg_t type)
31 : : {
32 : : int ret;
33 : 10332 : *reg=-1;
34 [ + + + + : 10332 : if (type==reg_parr && *par++!='(') return false;
+ + ]
35 [ + + + + : 7596 : if (type==reg_parr && to_lower(*par++)!='r') return false;
+ + ]
36 [ + + + + : 7200 : if (type==reg_r && to_lower(*par++)!='r') return false;
+ + ]
37 [ + + + + : 5340 : if (type==reg_hash && *par++!='#') return false;
+ + ]
38 [ + + ]: 3396 : if (!is_digit(par[0])) return false;
39 [ + + ]: 3396 : if (is_digit(par[1]))
40 : : {
41 [ + - + + ]: 1200 : if (par[0]!='1' || par[1]>'5') return false;
42 : 1200 : ret=par[1]-'0'+10;
43 : 1200 : par+=2;
44 : : }
45 : : else
46 : : {
47 : 2196 : ret=par[0]-'0';
48 : 2196 : par+=1;
49 : : }
50 [ + + + + : 3396 : if (type==reg_parr && *par++!=')') return false;
- + ]
51 [ + + ]: 3396 : if (*par) return false;
52 : 3396 : *reg=ret;
53 : 3396 : return true;
54 : : }
55 : :
56 : : //for LMS and SMS short addressing forms, check range & evenness
57 : 192 : static bool check_short_addr(int num) {
58 [ + - + + : 192 : if (num % 2 > 0 || num < 0 || num > 0x1FE) {
- + ]
59 : 0 : asar_throw_error(0, error_type_block, error_id_superfx_invalid_short_address, hex((unsigned int)num).data());
60 : 0 : return false;
61 : : }
62 : 96 : return true;
63 : : }
64 : :
65 : 3654 : bool asblock_superfx(char** word, int numwords)
66 : : {
67 : : #define is(test) (!stricmp(word[0], test))
68 : 1827 : char * par= nullptr;
69 [ + + ]: 3654 : if (word[1]) par= duplicate_string(word[1]);
70 : 1827 : autoptr<char*> parptr=par;
71 : : if(0);
72 [ + - - + ]: 3654 : else if (assemblemapper(word, numwords)) return true;
73 [ + + ]: 3654 : else if (numwords==1)
74 : : {
75 : : #define op(from, to) if (is(from)) { write1(to); return true; }
76 : : #define op3d(from, to) if (is(from)) { write1(0x3D); write1(to); return true; }
77 : : #define op3e(from, to) if (is(from)) { write1(0x3E); write1(to); return true; }
78 : : #define op3f(from, to) if (is(from)) { write1(0x3F); write1(to); return true; }
79 : 210 : op("STOP", 0x00);
80 : 204 : op("NOP", 0x01);
81 : 180 : op("CACHE", 0x02);
82 : 174 : op("LSR", 0x03);
83 : 168 : op("ROL", 0x04);
84 : 162 : op("LOOP", 0x3C);
85 : 156 : op("ALT1", 0x3D);
86 : 150 : op("ALT2", 0x3E);
87 : 144 : op("ALT3", 0x3F);
88 : 138 : op("PLOT", 0x4C);
89 : 132 : op("SWAP", 0x4D);
90 : 126 : op("COLOR", 0x4E);
91 : 120 : op("NOT", 0x4F);
92 : 114 : op("MERGE", 0x70);
93 : 108 : op("SBK", 0x90);
94 : 102 : op("SEX", 0x95);
95 : 96 : op("ASR", 0x96);
96 : 90 : op("ROR", 0x97);
97 : 84 : op("LOB", 0x9E);
98 : 78 : op("FMULT", 0x9F);
99 : 72 : op("HIB", 0xC0);
100 : 66 : op("GETC", 0xDF);
101 : 60 : op("GETB", 0xEF);
102 : 54 : op3d("RPIX", 0x4C);
103 : 48 : op3d("CMODE", 0x4E);
104 : 42 : op3d("DIV2", 0x96);
105 : 36 : op3d("LMULT", 0x9F);
106 : 30 : op3d("GETBH", 0xEF);
107 : 24 : op3e("RAMB", 0xDF);
108 : 18 : op3e("GETBL", 0xEF);
109 : 12 : op3f("ROMB", 0xDF);
110 : 6 : op3f("GETBS", 0xEF);
111 : : #undef op
112 : : #undef op3d
113 : : #undef op3e
114 : : #undef op3f
115 : 0 : return false;
116 : : }
117 [ + - ]: 3444 : else if (numwords==2)
118 : : {
119 : 3444 : string tmp=par;
120 : : int numwordsinner;
121 : 3444 : autoptr<char*> parcpy= duplicate_string(par);
122 [ + - ]: 3444 : autoptr<char**> arg=qpsplit(parcpy, ',', &numwordsinner);
123 : 1722 : bool ret=false;
124 : : #define ok() ret=true
125 : : #define op(op) if (is(op)) ok()
126 : : #define w3d(val) ,write1(0x3D) w(val)
127 : : #define w3e(val) ,write1(0x3E) w(val)
128 : : #define w3f(val) ,write1(0x3F) w(val)
129 [ + + ]: 3444 : if (numwordsinner ==1)
130 : : {
131 : : #define w(val) ,write1((unsigned int)(val+reg))
132 : : #define reg_range(min, max) ,range(min, reg, max)
133 : : int reg;
134 [ + + ]: 2808 : if (getreg(par, ®, reg_r))
135 : : {
136 : 1572 : op("TO") w(0x10);
137 : 1572 : op("WITH") w(0x20);
138 : 1572 : op("ADD") w(0x50);
139 : 1572 : op("SUB") w(0x60);
140 : 1572 : op("AND") reg_range(1, 15) w(0x70);
141 : 1572 : op("MULT") w(0x80);
142 : 1572 : op("JMP") reg_range(8, 13) w(0x90);
143 : 1572 : op("FROM") w(0xB0);
144 : 1572 : op("OR") reg_range(1, 15) w(0xC0);
145 : 1572 : op("INC") reg_range(0, 14) w(0xD0);
146 : 1572 : op("DEC") reg_range(0, 14) w(0xE0);
147 : :
148 : 1572 : op("ADC") w3d(0x50);
149 : 1572 : op("SBC") w3d(0x60);
150 : 1572 : op("BIC") reg_range(1, 15) w3d(0x70);
151 : 1572 : op("UMULT") w3d(0x80);
152 : 1572 : op("LJMP") reg_range(8, 13) w3d(0x90);
153 : 1572 : op("XOR") reg_range(1, 15) w3d(0xC0);
154 : :
155 : 1572 : op("CMP") w3f(0x60);
156 : : }
157 [ + + ]: 2808 : if (getreg(par, ®, reg_hash))
158 : : {
159 : 864 : op("LINK") reg_range(1, 4) w(0x90);
160 : :
161 : 864 : op("ADD") w3e(0x50);
162 : 864 : op("SUB") w3e(0x60);
163 : 864 : op("AND") reg_range(1, 15) w3e(0x70);
164 : 864 : op("MULT") w3e(0x80);
165 : 864 : op("OR") reg_range(1, 15) w3e(0xC0);
166 : :
167 : 864 : op("ADC") w3f(0x50);
168 : 864 : op("BIC") reg_range(1, 15) w3f(0x70);
169 : 864 : op("UMULT") w3f(0x80);
170 : 864 : op("XOR") reg_range(1, 15) w3f(0xC0);
171 : : }
172 [ + + ]: 2808 : if (getreg(par, ®, reg_parr))
173 : : {
174 : 288 : op("STW") reg_range(0, 11) w(0x30);
175 : 288 : op("LDW") reg_range(0, 11) w(0x40);
176 : 288 : op("STB") reg_range(0, 11) w3d(0x30);
177 : 288 : op("LDB") reg_range(0, 11) w3d(0x40);
178 : : }
179 : : #undef w
180 : : #undef reg_range
181 : 1404 : int byte=-1;
182 : : #define br(name, val) if (is(name)) byte=val;
183 : 2808 : br("BRA", 0x05);
184 : 2808 : br("BGE", 0x06);
185 : 2808 : br("BLT", 0x07);
186 : 2808 : br("BNE", 0x08);
187 : 2808 : br("BEQ", 0x09);
188 : 2808 : br("BPL", 0x0A);
189 : 2808 : br("BMI", 0x0B);
190 : 2808 : br("BCC", 0x0C);
191 : 2808 : br("BCS", 0x0D);
192 : 2808 : br("BVC", 0x0E);
193 : 2808 : br("BVS", 0x0F);
194 : : #undef br
195 [ + + ]: 2805 : if (byte!=-1)
196 : : {
197 : 33 : ret=true;
198 : 66 : int len=getlen(par);
199 : 66 : unsigned int num=getnum_ck(par);
200 [ - + ]: 66 : if (len==1)
201 : : {
202 : 0 : write1((unsigned int)byte); write1(num);
203 : : }
204 : : else
205 : : {
206 : 66 : int pos=(int)getnum_ck(par)-((snespos&0xFFFFFF)+2);
207 : 66 : write1((unsigned int)byte); write1((unsigned int)pos);
208 [ + + + - : 66 : if (pass==2 && (pos<-128 || pos>127))
- + ]
209 : : {
210 : 0 : asar_throw_error(2, error_type_block, error_id_relative_branch_out_of_bounds, dec(pos).data());
211 : : }
212 : : }
213 : : }
214 : : }
215 [ + + ]: 3444 : if (numwordsinner==2)
216 : : {
217 : : #define w(val) ,write1((unsigned int)(val))
218 : 636 : int reg1; bool isreg1=getreg(arg[0], ®1, reg_r);
219 : 636 : int reg2; bool isreg2=getreg(arg[1], ®2, reg_r);
220 [ + + ]: 636 : if (isreg1)
221 : : {
222 [ + + ]: 426 : if (isreg2)
223 : : {
224 : 12 : op("MOVE") w(0x20+reg2) w(0x10+reg1);
225 : 12 : op("MOVES") w(0x20+reg1) w(0xB0+reg2);
226 : : }
227 [ + + ]: 426 : if (arg[1][0]=='#')
228 : : {
229 : 198 : unsigned int num=getnum_ck(arg[1]+1);
230 : 198 : num&=0xFFFF;
231 : 198 : op("IBT") w(0xA0+reg1) w(num);
232 : 198 : op("IWT") w(0xF0+reg1) w(num) w(num>>8);
233 [ + + - - ]: 198 : if (num<0x80 || num>=0xFF80)
234 : : {
235 : 198 : op("MOVE") w(0xA0+reg1) w(num);
236 : : }
237 : : else
238 : : {
239 : 0 : op("MOVE") w(0xF0+reg1) w(num) w(num>>8);
240 : : }
241 : : }
242 [ + + ]: 426 : if (getreg(arg[1], ®2, reg_parr))
243 : : {
244 [ + - ]: 12 : if (reg1==0)
245 : : {
246 : 12 : op("MOVEB") w(0x3D) w(0x40+reg2);
247 : 12 : op("MOVEW") w(0x40+reg2);
248 : : }
249 : : else
250 : : {
251 : 0 : op("MOVEB") w(0x10+reg1) w(0x3D) w(0x40+reg2);
252 : 0 : op("MOVEW") w(0x10+reg1) w(0x40+reg2);
253 : : }
254 : : }
255 [ + + ]: 414 : else if (arg[1][0]=='(')
256 : : {
257 : 99 : char * endpar=strchr(arg[1], ')');
258 [ + - + + ]: 198 : if (!endpar || endpar[1]) return false;
259 : 198 : unsigned int num=getnum_ck(arg[1]);
260 : 198 : op("LM") w(0x3D) w(0xF0+reg1) w(num) w(num>>8);
261 : :
262 [ + + + + ]: 198 : if (is("LMS")) {
263 : 48 : ok();
264 [ + - + - ]: 96 : if (check_short_addr((int)num))
265 : : {
266 : 96 : ok() w(0x3D) w(0xA0+reg1) w(num>>1);
267 : : }
268 : : }
269 : :
270 [ + - - + ]: 198 : if (num&1 || num>=0x200)
271 : : {
272 : 0 : op("MOVE") w(0x3D) w(0xF0+reg1) w(num) w(num>>8);
273 : : }
274 : : else
275 : : {
276 : 198 : op("MOVE") w(0x3D) w(0xA0+reg1) w(num);
277 : : }
278 : : }
279 [ + + + + ]: 426 : if (is("LEA"))
280 : : {
281 : 6 : unsigned int num=getnum_ck(arg[1]);
282 : 6 : ok() w(0xF0+reg1) w(num) w(num>>8);
283 : : }
284 : : }
285 [ + + ]: 210 : else if (isreg2)
286 : : {
287 [ + + ]: 210 : if (getreg(arg[0], ®1, reg_parr))
288 : : {
289 [ + - ]: 12 : if (reg1==0)
290 : : {
291 : 12 : op("MOVEB") w(0x3D) w(0x30+reg2);
292 : 12 : op("MOVEW") w(0x30+reg2);
293 : : }
294 : : else
295 : : {
296 : 0 : op("MOVEB") w(0xB0+reg1) w(0x3D) w(0x30+reg2);
297 : 0 : op("MOVEW") w(0xB0+reg1) w(0x30+reg2);
298 : : }
299 : : }
300 [ + + ]: 198 : else if (arg[0][0]=='(')
301 : : {
302 : 99 : char * endpar=strchr(arg[0], ')');
303 [ + - + + ]: 198 : if (!endpar || endpar[1]) return false;
304 : 198 : unsigned int num=getnum_ck(arg[0]);
305 : 198 : op("SM") w(0x3E) w(0xF0+reg2) w(num) w(num>>8);
306 : :
307 [ + + + + ]: 198 : if (is("SMS"))
308 : : {
309 : 48 : ok();
310 [ + - + - ]: 96 : if (check_short_addr((int)num))
311 : : {
312 : 96 : ok() w(0x3E) w(0xA0+reg2) w(num>>1);
313 : : }
314 : : }
315 : :
316 [ + - - + ]: 198 : if (num&1 || num>=0x200)
317 : : {
318 : 0 : op("MOVE") w(0x3E) w(0xF0+reg2) w(num) w(num>>8);
319 : : }
320 : : else
321 : : {
322 : 198 : op("MOVE") w(0x3E) w(0xA0+reg2) w(num);
323 : : }
324 : : }
325 : : }
326 : : }
327 : : #undef ok
328 : : #undef op
329 : : #undef w3d
330 : : #undef w3e
331 : : #undef w3f
332 : 3444 : return ret;
333 : 3444 : }
334 : 0 : return false;
335 : 3654 : }
|
