Mercurial > hg-old > index.cgi
annotate src/insn_rel.c @ 77:a338d496350e
Checkpointing conversion to allow object target
author | lost |
---|---|
date | Fri, 09 Jan 2009 04:23:00 +0000 |
parents | 89657cb3fdf8 |
children | 964d68cde469 |
rev | line source |
---|---|
29 | 1 /* |
2 insn_rel.c | |
33
74a3fef7c8d0
Added general addressing modes (immediate, base page, extended, indexed)
lost
parents:
32
diff
changeset
|
3 Copyright © 2009 William Astle |
29 | 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 relative mode instructions | |
23 */ | |
24 | |
32 | 25 #define __insn_rel_c_seen__ |
29 | 26 |
27 #include <stdlib.h> | |
28 | |
29 #include "expr.h" | |
30 #include "lwasm.h" | |
31 #include "instab.h" | |
32 | |
33 OPFUNC(insn_rel8) | |
34 { | |
35 int v; | |
77 | 36 lwasm_expr_term_t *t; |
37 int r; | |
29 | 38 |
39 lwasm_emitop(as, l, instab[opnum].ops[0]); | |
77 | 40 |
41 if ((r = lwasm_expr_result2(as, l, p, EXPR_PASS2CONST | EXPR_NOINTERSECT, &v, 0)) != 0) | |
42 v = 0; | |
43 else | |
29 | 44 { |
77 | 45 if (as -> passnum == 1) |
46 { | |
47 // need to adjust the expression | |
48 v -= as -> addr + 1; | |
49 if (l -> exprs[0]) | |
50 { | |
51 t = lwasm_expr_term_create_int(as -> addr + 1); | |
52 lwasm_expr_stack_push(l -> exprs[0], t); | |
53 lwasm_expr_term_free(t); | |
54 t = lwasm_expr_term_create_oper(LWASM_OPER_MINUS); | |
55 lwasm_expr_stack_push(l -> exprs[0], t); | |
56 lwasm_expr_term_free(t); | |
57 } | |
58 else | |
59 { | |
60 l -> exprvals[0] -= as -> addr + 1; | |
61 } | |
62 } | |
29 | 63 } |
77 | 64 if (r == 1 && as -> passnum == 2) |
65 { | |
66 register_error(as, l, 2, "Illegal external or intersegment reference"); | |
67 } | |
29 | 68 if (v < -128 || v > 127) |
69 register_error(as, l, 2, "Byte overflow"); | |
70 lwasm_emit(as, l, v & 0xff); | |
71 } | |
72 | |
77 | 73 /* |
74 External and intersegment references are adjusted for the relative addressing mode | |
75 by adjusting the expression on pass 1 and then treated as absolute references later | |
76 */ | |
29 | 77 OPFUNC(insn_rel16) |
78 { | |
79 int v; | |
77 | 80 int r; |
81 lwasm_expr_term_t *t; | |
29 | 82 |
83 lwasm_emitop(as, l, instab[opnum].ops[0]); | |
84 | |
77 | 85 r = lwasm_expr_result2(as, l, p, EXPR_PASS2CONST, &v, 0); |
86 if (r != 0) | |
59 | 87 v = 0; |
77 | 88 else |
89 { | |
90 if (as -> passnum == 1) | |
91 { | |
92 // need to adjust the expression | |
93 v -= as -> addr + 1; | |
94 if (l -> exprs[0]) | |
95 { | |
96 t = lwasm_expr_term_create_int(as -> addr + 1); | |
97 lwasm_expr_stack_push(l -> exprs[0], t); | |
98 lwasm_expr_term_free(t); | |
99 t = lwasm_expr_term_create_oper(LWASM_OPER_MINUS); | |
100 lwasm_expr_stack_push(l -> exprs[0], t); | |
101 lwasm_expr_term_free(t); | |
102 } | |
103 else | |
104 { | |
105 l -> exprvals[0] -= as -> addr + 2; | |
106 } | |
107 } | |
108 } | |
109 if (as -> passnum == 2 && r == 1) | |
110 l -> relocoff = as -> addr - l -> codeaddr; | |
29 | 111 lwasm_emit(as, l, (v >> 8) & 0xff); |
112 lwasm_emit(as, l, v & 0xff); | |
113 } |