Mercurial > hg-old > index.cgi

annotate src/lwasm.c @ 27:f736579569b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added handlers for inherent and register to register instructions
author lost
date Fri, 02 Jan 2009 02:56:04 +0000
parents d2e86babd958
children 9bd0fbfe7405
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
1 /*
4
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files
lost
parents: 0
diff changeset
2 lwasm.c
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files
lost
parents: 0
diff changeset
3 Copyright © 2008 William Astle
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files
lost
parents: 0
diff changeset
4
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files
lost
parents: 0
diff changeset
5 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
6
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files
lost
parents: 0
diff changeset
7 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
8 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
9 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
10 version.
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files
lost
parents: 0
diff changeset
11
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files
lost
parents: 0
diff changeset
12 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
13 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
14 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
15 more details.
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files
lost
parents: 0
diff changeset
16
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files
lost
parents: 0
diff changeset
17 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
18 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
19
26
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
20
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
21 Contains random functions used by the assembler
4
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files
lost
parents: 0
diff changeset
22 */
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
23
26
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
24 #define __lwasm_c_seen__
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
25
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
26 #include <stdarg.h>
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
27 #include <stdlib.h>
26
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
28 #include <stdio.h>
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
29
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
30 #include "lwasm.h"
26
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
31 #include "util.h"
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
32
26
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
33 int register_error(asmstate_t *as, lwasm_line_t *l, int pass, const char *fmt, ...)
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
34 {
26
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
35 lwasm_error_t *e;
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
36 va_list args;
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
37 char errbuff[1024];
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
38 int r;
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
39
26
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
40 if (as -> passnum != pass)
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
41 return;
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
42
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
43 va_start(args, fmt);
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
44
26
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
45 e = lwasm_alloc(sizeof(lwasm_error_t));
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
46
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
47 e -> next = l -> err;
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
48 l -> err = e;
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
49
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
50 as -> errorcount++;
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
51
26
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
52 r = vsnprintf(errbuff, 1024, fmt, args);
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
53 e -> mess = lwasm_strdup(errbuff);
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
54
26
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
55 va_end(args);
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
56
26
d2e86babd958 Added error tracking infrastructure
lost
parents: 13
diff changeset
57 return r;
0
57495da01900 Initial checking of LWASM
lost
parents:
diff changeset
58 }
27
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
59
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
60 void lwasm_emit(asmstate_t *as, lwasm_line_t *l, int b)
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
61 {
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
62 as -> addr += 1;
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
63
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
64 if (as -> passnum == 1)
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
65 return;
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
66
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
67 fprintf(stderr, "FIXME: trying to emit code in pass 2 but not implemented.\n");
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
68 }
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
69
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
70 void lwasm_emitop(asmstate_t *as, lwasm_line_t *l, int o)
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
71 {
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
72 if (o >= 0x100)
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
73 lwasm_emit(as, l, o >> 8);
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
74 lwasm_emit(as, l, o & 0xff);
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
75 }
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
76
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
77 int lwasm_lookupreg2(const char *reglist, char **str)
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
78 {
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
79 int rval = 0;
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
80
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
81 while (*reglist)
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
82 {
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
83 if (toupper(**str) == *reglist)
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
84 {
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
85 // first char matches
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
86 if (reglist[1] == ' ' && !isalpha(*(*str + 1)))
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
87 break;
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
88 if (toupper(*(*str + 1)) == reglist[1])
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
89 break;
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
90 }
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
91 reglist += 2;
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
92 rval++;
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
93 }
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
94 if (!*reglist)
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
95 return -1;
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
96 if (reglist[1] == ' ')
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
97 (*str)++;
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
98 else
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
99 (*str) += 2;
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
100 return rval;
f736579569b4 Added handlers for inherent and register to register instructions
lost
parents: 26
diff changeset
101 }