Mercurial > hg-old > index.cgi
annotate src/lwasm.c @ 32:9bd0fbfe7405
Added basic indexed mode handling
| author | lost |
|---|---|
| date | Fri, 02 Jan 2009 04:22:39 +0000 |
| parents | f736579569b4 |
| children | 538e15927776 |
| rev | line source |
|---|---|
| 0 | 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 | 20 |
| 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 | 23 |
| 26 | 24 #define __lwasm_c_seen__ |
| 25 | |
| 26 #include <stdarg.h> | |
| 0 | 27 #include <stdlib.h> |
| 26 | 28 #include <stdio.h> |
| 29 | |
| 0 | 30 #include "lwasm.h" |
| 26 | 31 #include "util.h" |
| 0 | 32 |
| 26 | 33 int register_error(asmstate_t *as, lwasm_line_t *l, int pass, const char *fmt, ...) |
| 0 | 34 { |
| 26 | 35 lwasm_error_t *e; |
| 36 va_list args; | |
| 37 char errbuff[1024]; | |
| 38 int r; | |
| 0 | 39 |
| 26 | 40 if (as -> passnum != pass) |
| 41 return; | |
| 42 | |
| 43 va_start(args, fmt); | |
| 0 | 44 |
| 26 | 45 e = lwasm_alloc(sizeof(lwasm_error_t)); |
| 46 | |
| 47 e -> next = l -> err; | |
| 48 l -> err = e; | |
| 0 | 49 |
| 50 as -> errorcount++; | |
| 51 | |
| 26 | 52 r = vsnprintf(errbuff, 1024, fmt, args); |
| 53 e -> mess = lwasm_strdup(errbuff); | |
| 0 | 54 |
| 26 | 55 va_end(args); |
| 0 | 56 |
| 26 | 57 return r; |
| 0 | 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 } |
| 32 | 102 |
| 103 int lwasm_lookupreg3(const char *rlist, const char **str) | |
| 104 { | |
| 105 int rval = 0; | |
| 106 int f = 0; | |
| 107 const char *reglist = rlist; | |
| 108 | |
| 109 while (*reglist) | |
| 110 { | |
| 111 if (toupper(**str) == *reglist) | |
| 112 { | |
| 113 // first char matches | |
| 114 if (reglist[1] == ' ') | |
| 115 { | |
| 116 f = 1; | |
| 117 break; | |
| 118 } | |
| 119 if (toupper(*(*str + 1)) == reglist[1]) | |
| 120 { | |
| 121 // second char matches | |
| 122 if (reglist[2] == ' ') | |
| 123 { | |
| 124 f = 1; | |
| 125 break; | |
| 126 } | |
| 127 if (toupper(*(*str + 2)) == reglist[2]) | |
| 128 { | |
| 129 f = 1; | |
| 130 break; | |
| 131 } | |
| 132 } | |
| 133 } | |
| 134 reglist += 3; | |
| 135 rval++; | |
| 136 } | |
| 137 if (f == 0) | |
| 138 return -1; | |
| 139 | |
| 140 | |
| 141 reglist = rval * 3 + rlist; | |
| 142 if (reglist[1] == ' ') | |
| 143 (*str) += 1; | |
| 144 else if (reglist[2] == ' ') | |
| 145 (*str) += 2; | |
| 146 else | |
| 147 (*str)+=3; | |
| 148 return rval; | |
| 149 } |