Mercurial > repos > simple16
annotate src/asm.c @ 59:b15187a99d6f default tip
Add a command line option for printing out label addresses on the command line. Useful for debugging purposes.
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 07 Sep 2016 23:15:27 -0700 |
parents | bed2d84eeabe |
children |
rev | line source |
---|---|
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1 #include <stdint.h> |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
2 #include <string.h> |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
3 #include <stdio.h> |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
4 #include <stddef.h> |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
5 #include <stdlib.h> |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
6 #include <ctype.h> |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
7 #include "cpu.h" |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
8 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
9 typedef enum { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
10 IMMED4, |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
11 IMMED8, |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
12 IMMEDHI, |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
13 BCCDST, |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
14 DCB, |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
15 DCW, |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
16 DCL |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
17 } reftype; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
18 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
19 typedef struct { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
20 uint16_t address; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
21 reftype type; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
22 } reference; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
23 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
24 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
25 typedef struct { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
26 char *name; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
27 reference *references; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
28 size_t num_references; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
29 size_t reference_storage; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
30 uint16_t address; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
31 uint8_t valid; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
32 } label; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
33 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
34 typedef struct { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
35 label *labels; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
36 size_t num_labels; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
37 size_t label_storage; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
38 } label_meta; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
39 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
40 typedef struct { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
41 int immed_min; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
42 int immed_max; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
43 uint16_t base; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
44 uint8_t first_shift; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
45 uint8_t second_shift; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
46 uint8_t expected_args; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
47 } inst_info; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
48 |
55
f9846719aa26
Remove old 48K limit in assembler
Michael Pavone <pavone@retrodev.com>
parents:
46
diff
changeset
|
49 #define MAX_SIZE (4*1024*1024) |
f9846719aa26
Remove old 48K limit in assembler
Michael Pavone <pavone@retrodev.com>
parents:
46
diff
changeset
|
50 |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
51 label *add_label(label_meta *labels, char *name, uint16_t address, uint8_t valid) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
52 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
53 if (labels->num_labels == labels->label_storage) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
54 labels->label_storage *= 2; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
55 labels->labels = realloc(labels->labels, sizeof(label) * labels->label_storage); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
56 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
57 labels->labels[labels->num_labels].name = strdup(name); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
58 labels->labels[labels->num_labels].references = NULL; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
59 labels->labels[labels->num_labels].address = address; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
60 labels->labels[labels->num_labels].valid = valid; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
61 labels->num_labels++; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
62 return labels->labels + labels->num_labels - 1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
63 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
64 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
65 label *find_label(label_meta *meta, char *name) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
66 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
67 for (size_t i = 0; i < meta->num_labels; i++) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
68 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
69 if (!strcmp(name, meta->labels[i].name)) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
70 return meta->labels + i; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
71 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
72 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
73 return NULL; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
74 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
75 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
76 uint16_t find_string_arr(char ** list, char *str, uint16_t num_entries) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
77 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
78 for (uint16_t i = 0; i < num_entries; i++) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
79 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
80 if (!strcmp(list[i], str)) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
81 return i; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
82 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
83 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
84 return num_entries; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
85 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
86 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
87 inst_info find_mnemonic(char *mnemonic) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
88 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
89 uint16_t index = find_string_arr(mnemonics, mnemonic, SINGLE_SOURCE); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
90 inst_info ret; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
91 if (index < SINGLE_SOURCE) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
92 ret.base = index; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
93 ret.first_shift = 4; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
94 if (index == LDIM || index == LDIMH) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
95 ret.second_shift = 12; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
96 ret.expected_args = 2; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
97 ret.immed_min = -128; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
98 ret.immed_max = 256; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
99 } else { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
100 ret.second_shift = 8; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
101 ret.expected_args = 3; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
102 ret.immed_min = ret.immed_max = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
103 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
104 return ret; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
105 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
106 index = find_string_arr(mnemonics_single_src, mnemonic, SINGLE_REG); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
107 if (index < SINGLE_REG) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
108 ret.base = index << 4 | SINGLE_SOURCE; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
109 ret.first_shift = 8; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
110 ret.second_shift = 12; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
111 ret.expected_args = 2; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
112 if (index >= INI) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
113 if (index >= ADDI) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
114 ret.immed_min = -8; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
115 ret.immed_max = 8; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
116 } else { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
117 ret.immed_min = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
118 ret.immed_max = 15; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
119 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
120 } else { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
121 ret.immed_min = ret.immed_max = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
122 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
123 return ret; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
124 } |
57
c44170825b16
Implement lsli and lsri in assembler
Michael Pavone <pavone@retrodev.com>
parents:
55
diff
changeset
|
125 if (!strcmp("lsli", mnemonic) || !strcmp("lsri", mnemonic)) { |
c44170825b16
Implement lsli and lsri in assembler
Michael Pavone <pavone@retrodev.com>
parents:
55
diff
changeset
|
126 ret.base = LSI << 4 | SINGLE_SOURCE; |
c44170825b16
Implement lsli and lsri in assembler
Michael Pavone <pavone@retrodev.com>
parents:
55
diff
changeset
|
127 if (mnemonic[2] == 'r') { |
c44170825b16
Implement lsli and lsri in assembler
Michael Pavone <pavone@retrodev.com>
parents:
55
diff
changeset
|
128 ret.base |= 0x800; |
c44170825b16
Implement lsli and lsri in assembler
Michael Pavone <pavone@retrodev.com>
parents:
55
diff
changeset
|
129 } |
c44170825b16
Implement lsli and lsri in assembler
Michael Pavone <pavone@retrodev.com>
parents:
55
diff
changeset
|
130 ret.immed_min = 1; |
c44170825b16
Implement lsli and lsri in assembler
Michael Pavone <pavone@retrodev.com>
parents:
55
diff
changeset
|
131 ret.immed_max = 8; |
c44170825b16
Implement lsli and lsri in assembler
Michael Pavone <pavone@retrodev.com>
parents:
55
diff
changeset
|
132 ret.first_shift = 8; |
c44170825b16
Implement lsli and lsri in assembler
Michael Pavone <pavone@retrodev.com>
parents:
55
diff
changeset
|
133 ret.second_shift = 12; |
c44170825b16
Implement lsli and lsri in assembler
Michael Pavone <pavone@retrodev.com>
parents:
55
diff
changeset
|
134 ret.expected_args = 2; |
c44170825b16
Implement lsli and lsri in assembler
Michael Pavone <pavone@retrodev.com>
parents:
55
diff
changeset
|
135 return ret; |
c44170825b16
Implement lsli and lsri in assembler
Michael Pavone <pavone@retrodev.com>
parents:
55
diff
changeset
|
136 } |
46
51672bd41cdd
Rework data segment setup to allow a stack segment and to add space for push and pop instructions
Michael Pavone <pavone@retrodev.com>
parents:
44
diff
changeset
|
137 index = find_string_arr(mnemonics_single_reg, mnemonic, SETVBR+1); |
51672bd41cdd
Rework data segment setup to allow a stack segment and to add space for push and pop instructions
Michael Pavone <pavone@retrodev.com>
parents:
44
diff
changeset
|
138 if (index > SETVBR) { |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
139 ret.base = 0xFFFF; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
140 return ret; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
141 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
142 ret.base = index << 8 | SINGLE_REG << 4 | SINGLE_SOURCE; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
143 ret.immed_min = ret.immed_max = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
144 ret.first_shift = 12; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
145 ret.second_shift = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
146 ret.expected_args = 1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
147 return ret; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
148 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
149 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
150 void add_reference(label *label, uint16_t address, reftype type) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
151 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
152 if (!label->references) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
153 label->reference_storage = 4; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
154 label->references = malloc(sizeof(reference) * label->reference_storage); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
155 label->num_references = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
156 } else if (label->num_references == label->reference_storage) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
157 label->reference_storage *= 2; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
158 label->references = realloc(label->references, sizeof(reference) * label->reference_storage); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
159 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
160 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
161 label->references[label->num_references].address = address; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
162 label->references[label->num_references].type = type; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
163 label->num_references++; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
164 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
165 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
166 char * get_arg(char **pos) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
167 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
168 char *linebuf = *pos; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
169 while (*linebuf && isspace(*linebuf) && *linebuf != ';') |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
170 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
171 linebuf++; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
172 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
173 char * start = linebuf; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
174 char * end = start; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
175 while (*linebuf && *linebuf != ';' && *linebuf != ',') |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
176 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
177 if (!isspace(*linebuf)) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
178 end = linebuf+1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
179 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
180 linebuf++; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
181 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
182 if (start == end) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
183 return NULL; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
184 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
185 if (*end) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
186 if (*linebuf == ',') { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
187 linebuf++; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
188 } else { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
189 linebuf = end; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
190 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
191 *end = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
192 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
193 *pos = linebuf; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
194 return start; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
195 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
196 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
197 void free_labels (label_meta *meta) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
198 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
199 for (size_t i = 0; i < meta->num_labels; i++) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
200 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
201 free(meta->labels[i].name); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
202 if(meta->labels[i].references) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
203 free(meta->labels[i].references); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
204 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
205 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
206 free(meta->labels); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
207 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
208 |
55
f9846719aa26
Remove old 48K limit in assembler
Michael Pavone <pavone@retrodev.com>
parents:
46
diff
changeset
|
209 int handle_dc(char size, char *linebuf, uint8_t *outbuf, uint32_t *pc, label_meta *meta) |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
210 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
211 char *arg; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
212 long value; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
213 char *start = linebuf; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
214 char *orig = strdup(linebuf); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
215 int in_string = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
216 while ((arg = in_string ? linebuf : get_arg(&linebuf))) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
217 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
218 //TODO: actual error checking |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
219 if (arg[0] == '$' || (arg[0] == '0' && arg[1] == 'x')) { |
10
9f575f77a157
Fix parsing of hex literals in assembler
Michael Pavone <pavone@retrodev.com>
parents:
6
diff
changeset
|
220 value = strtol(arg[0] == '$' ? arg+1 : arg+2, NULL, 16); |
12
d4112095b93f
Allow negative decimal literals
Michael Pavone <pavone@retrodev.com>
parents:
10
diff
changeset
|
221 } else if (arg[0] >= '0' && arg[0] <= '9' || arg[0] == '-') { |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
222 value = strtol(arg, NULL, 10); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
223 } else if (arg[0] == '"') { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
224 if (arg[1] == '"') { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
225 //emtpy string or end of string |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
226 in_string = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
227 continue; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
228 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
229 if (arg[1] == '\\' && arg[2]) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
230 switch(arg[2]) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
231 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
232 case 'n': |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
233 value = '\n'; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
234 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
235 case 't': |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
236 value = '\t'; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
237 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
238 case 'r': |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
239 value = '\r'; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
240 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
241 case '"': |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
242 case '\\': |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
243 value = arg[2]; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
244 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
245 default: |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
246 fprintf(stderr, "WARNING: Unrecognized escape char %c\n", arg[2]); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
247 value = arg[2]; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
248 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
249 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
250 arg++; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
251 } else { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
252 value = arg[1]; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
253 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
254 in_string = 1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
255 arg[1] = '"'; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
256 linebuf = arg+1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
257 int len = strlen(linebuf); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
258 //undo termination done by get_arg |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
259 linebuf[len] = orig[len + linebuf-start]; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
260 } else { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
261 label *l = find_label(meta, arg); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
262 if (!l) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
263 l = add_label(meta, arg, 0, 0); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
264 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
265 if (l->valid) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
266 value = l->address; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
267 } else { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
268 value = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
269 add_reference(l, *pc, size == 'b' ? DCB : size == 'w' ? DCW : DCL); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
270 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
271 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
272 switch (size) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
273 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
274 case 'b': |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
275 if (value < -128 || value > 255) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
276 fprintf(stderr, "WARNING: %s is too large to fit in a byte\n", arg); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
277 } |
55
f9846719aa26
Remove old 48K limit in assembler
Michael Pavone <pavone@retrodev.com>
parents:
46
diff
changeset
|
278 if (*pc >= MAX_SIZE) { |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
279 fputs("ERROR: Hit end of ROM space\n", stderr); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
280 free(orig); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
281 return 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
282 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
283 outbuf[(*pc)++] = value; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
284 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
285 case 'w': |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
286 if (value < -32768 || value > 65535) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
287 fprintf(stderr, "WARNING: %s is too large to fit in a word\n", arg); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
288 } |
55
f9846719aa26
Remove old 48K limit in assembler
Michael Pavone <pavone@retrodev.com>
parents:
46
diff
changeset
|
289 if (*pc >= MAX_SIZE - 1) { |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
290 fputs("ERROR: Hit end of ROM space\n", stderr); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
291 free(orig); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
292 return 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
293 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
294 outbuf[(*pc)++] = value >> 8; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
295 outbuf[(*pc)++] = value; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
296 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
297 case 'l': |
55
f9846719aa26
Remove old 48K limit in assembler
Michael Pavone <pavone@retrodev.com>
parents:
46
diff
changeset
|
298 if (*pc >= MAX_SIZE - 3) { |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
299 fputs("ERROR: Hit end of ROM space\n", stderr); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
300 free(orig); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
301 return 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
302 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
303 outbuf[(*pc)++] = value >> 24; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
304 outbuf[(*pc)++] = value >> 16; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
305 outbuf[(*pc)++] = value >> 8; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
306 outbuf[(*pc)++] = value; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
307 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
308 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
309 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
310 free(orig); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
311 return 1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
312 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
313 |
55
f9846719aa26
Remove old 48K limit in assembler
Michael Pavone <pavone@retrodev.com>
parents:
46
diff
changeset
|
314 int process_arg(uint16_t *inst, char *arg, int arg_shift, int immed_min, int immed_max, label_meta *meta, uint32_t pc) |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
315 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
316 long value; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
317 if (arg[0] == 'r' && arg[1] >= '0' && arg[1] <= '9' && (arg[2] == 0 || arg[3] == 0)) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
318 //posible register |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
319 value = strtol(arg+1, NULL, 10); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
320 if (value >= 0 && value < 16) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
321 *inst |= value << arg_shift; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
322 return 1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
323 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
324 } |
46
51672bd41cdd
Rework data segment setup to allow a stack segment and to add space for push and pop instructions
Michael Pavone <pavone@retrodev.com>
parents:
44
diff
changeset
|
325 if (!strcmp(arg, "db")) { |
51672bd41cdd
Rework data segment setup to allow a stack segment and to add space for push and pop instructions
Michael Pavone <pavone@retrodev.com>
parents:
44
diff
changeset
|
326 *inst |= REG_DB << arg_shift; |
51672bd41cdd
Rework data segment setup to allow a stack segment and to add space for push and pop instructions
Michael Pavone <pavone@retrodev.com>
parents:
44
diff
changeset
|
327 return 1; |
51672bd41cdd
Rework data segment setup to allow a stack segment and to add space for push and pop instructions
Michael Pavone <pavone@retrodev.com>
parents:
44
diff
changeset
|
328 } |
51672bd41cdd
Rework data segment setup to allow a stack segment and to add space for push and pop instructions
Michael Pavone <pavone@retrodev.com>
parents:
44
diff
changeset
|
329 if (!strcmp(arg, "sp")) { |
51672bd41cdd
Rework data segment setup to allow a stack segment and to add space for push and pop instructions
Michael Pavone <pavone@retrodev.com>
parents:
44
diff
changeset
|
330 *inst |= REG_SP << arg_shift; |
51672bd41cdd
Rework data segment setup to allow a stack segment and to add space for push and pop instructions
Michael Pavone <pavone@retrodev.com>
parents:
44
diff
changeset
|
331 return 1; |
51672bd41cdd
Rework data segment setup to allow a stack segment and to add space for push and pop instructions
Michael Pavone <pavone@retrodev.com>
parents:
44
diff
changeset
|
332 } |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
333 if (!strcmp(arg, "pc")) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
334 *inst |= REG_PC << arg_shift; |
25
fb14515266f4
Implemented timer and timer interrupts. Added get/setvbr instructions. Fixed assembler bug. Moved mnemonics into a separate source file
Michael Pavone <pavone@retrodev.com>
parents:
12
diff
changeset
|
335 return 1; |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
336 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
337 if (!strcmp(arg, "sr")) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
338 *inst |= REG_SR << arg_shift; |
25
fb14515266f4
Implemented timer and timer interrupts. Added get/setvbr instructions. Fixed assembler bug. Moved mnemonics into a separate source file
Michael Pavone <pavone@retrodev.com>
parents:
12
diff
changeset
|
339 return 1; |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
340 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
341 if (immed_min == immed_max) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
342 fprintf(stderr, "ERROR: Non-register argument %s where a register is required\n", arg); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
343 return 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
344 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
345 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
346 //TODO: actual error checking |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
347 if (arg[0] == '$' || (arg[0] == '0' && arg[1] == 'x')) { |
10
9f575f77a157
Fix parsing of hex literals in assembler
Michael Pavone <pavone@retrodev.com>
parents:
6
diff
changeset
|
348 value = strtol(arg[0] == '$' ? arg+1 : arg+2, NULL, 16); |
12
d4112095b93f
Allow negative decimal literals
Michael Pavone <pavone@retrodev.com>
parents:
10
diff
changeset
|
349 } else if (arg[0] >= '0' && arg[0] <= '9' || arg[0] == '-') { |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
350 value = strtol(arg, NULL, 10); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
351 } else { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
352 label *l = find_label(meta, arg); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
353 if (!l) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
354 l = add_label(meta, arg, 0, 0); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
355 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
356 if (l->valid) { |
58
bed2d84eeabe
Fix ldimh special casing of loading labels for the case when the label is not a forward reference
Michael Pavone <pavone@retrodev.com>
parents:
57
diff
changeset
|
357 if (*inst == LDIMH) { |
bed2d84eeabe
Fix ldimh special casing of loading labels for the case when the label is not a forward reference
Michael Pavone <pavone@retrodev.com>
parents:
57
diff
changeset
|
358 value = l->address >> 8; |
bed2d84eeabe
Fix ldimh special casing of loading labels for the case when the label is not a forward reference
Michael Pavone <pavone@retrodev.com>
parents:
57
diff
changeset
|
359 } else { |
bed2d84eeabe
Fix ldimh special casing of loading labels for the case when the label is not a forward reference
Michael Pavone <pavone@retrodev.com>
parents:
57
diff
changeset
|
360 value = l->address; |
bed2d84eeabe
Fix ldimh special casing of loading labels for the case when the label is not a forward reference
Michael Pavone <pavone@retrodev.com>
parents:
57
diff
changeset
|
361 } |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
362 } else { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
363 value = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
364 add_reference(l, pc, (*inst & 0xF) == LDIMH ? IMMEDHI : (*inst & 0xF) == LDIM ? IMMED8 : IMMED4); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
365 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
366 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
367 if (value > immed_max || value < immed_min) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
368 fprintf(stderr, "WARNING: %s is too big to fit in an %s\n", arg, (*inst & 0xF) <= LDIMH ? "byte" : "nibble"); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
369 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
370 if (immed_max == 8) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
371 if (value == 8) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
372 value = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
373 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
374 value &= 0xF; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
375 } else { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
376 value &= 0xFF; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
377 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
378 *inst |= value << arg_shift; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
379 return 1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
380 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
381 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
382 char * condition_names[] = { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
383 "ra", "rn", "eq", "ne", "mi", "pl", "cs", "cc", "gr", "le" |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
384 }; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
385 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
386 int handle_bcc(char *cc, char *args, uint8_t *outbuf, uint16_t pc, label_meta *meta) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
387 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
388 uint16_t intcc = find_string_arr(condition_names, cc, COND_LEQ+1); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
389 if (intcc > COND_LEQ) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
390 fprintf(stderr, "ERROR: Invalid condition code %s\n", cc); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
391 return 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
392 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
393 char *dest = get_arg(&args); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
394 if (!dest) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
395 fprintf(stderr, "ERROR: Missing argument to b%s\n", cc); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
396 return 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
397 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
398 char *extra = get_arg(&args); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
399 if (extra) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
400 fprintf(stderr, "ERROR: Extra argument %s to b%s\n", extra, cc); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
401 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
402 label *l = find_label(meta, dest); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
403 if (!l) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
404 l = add_label(meta, dest, 0, 0); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
405 add_reference(l, pc, BCCDST); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
406 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
407 uint16_t dest_addr = l->valid ? l->address : pc + 4; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
408 if (dest_addr & 1) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
409 fprintf(stderr, "ERROR: Label %s refers to odd address %X which is illegal for b%s\n", dest, dest_addr, cc); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
410 return 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
411 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
412 int32_t diff = dest_addr - (pc + 4); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
413 if (diff < -512 || diff > 510) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
414 fprintf(stderr, "ERROR: Label %s is out of range for b%s\n", dest, cc); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
415 return 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
416 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
417 diff &= 0x1FE; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
418 uint16_t inst = BCC | diff << 3 | intcc << 12; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
419 outbuf[pc] = inst >> 8; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
420 outbuf[pc+1] = inst; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
421 return 1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
422 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
423 |
55
f9846719aa26
Remove old 48K limit in assembler
Michael Pavone <pavone@retrodev.com>
parents:
46
diff
changeset
|
424 uint8_t handle_incbin(char *cur, uint8_t *outbuf, uint32_t *pc) |
29
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
425 { |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
426 char * end = strchr(cur, ';'); |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
427 if (end) { |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
428 *end = 0; |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
429 } else { |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
430 end = cur + strlen(cur); |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
431 } |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
432 while (end - cur > 1 && isspace(*(end-1))) |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
433 { |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
434 end--; |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
435 } |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
436 *end = 0; |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
437 FILE *incfile = fopen(cur, "rb"); |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
438 if (!incfile) { |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
439 fprintf(stderr, "Failed to open inclued file %s for reading\n", cur); |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
440 return 0; |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
441 } |
55
f9846719aa26
Remove old 48K limit in assembler
Michael Pavone <pavone@retrodev.com>
parents:
46
diff
changeset
|
442 size_t read = fread(outbuf + *pc, 1, MAX_SIZE-*pc, incfile); |
29
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
443 fclose(incfile); |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
444 *pc += read; |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
445 return 1; |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
446 } |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
447 |
59
b15187a99d6f
Add a command line option for printing out label addresses on the command line. Useful for debugging purposes.
Michael Pavone <pavone@retrodev.com>
parents:
58
diff
changeset
|
448 uint8_t assemble_file(FILE *input, FILE *output, uint8_t print_labels) |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
449 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
450 //fixed size buffers are lame, but so are lines longer than 4K characters |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
451 //this is good enough for the really simple first version |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
452 char linebuf[4096]; |
55
f9846719aa26
Remove old 48K limit in assembler
Michael Pavone <pavone@retrodev.com>
parents:
46
diff
changeset
|
453 uint8_t outbuf[MAX_SIZE]; |
f9846719aa26
Remove old 48K limit in assembler
Michael Pavone <pavone@retrodev.com>
parents:
46
diff
changeset
|
454 uint32_t pc = 0; |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
455 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
456 size_t num_labels = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
457 size_t label_storage = 1024; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
458 label_meta labels = { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
459 .labels = malloc(sizeof(label) * 1024), |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
460 .label_storage = 1024, |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
461 .num_labels = 0 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
462 }; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
463 int line = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
464 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
465 while (fgets(linebuf, sizeof(linebuf), input) && pc < sizeof(outbuf)/sizeof(uint16_t)) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
466 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
467 line++; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
468 char *lname = NULL; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
469 char *cur = linebuf; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
470 if (!isspace(*cur)) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
471 lname = cur; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
472 while(*cur && *cur != ':' && !isspace(*cur)) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
473 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
474 cur++; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
475 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
476 if (*cur) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
477 *cur = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
478 cur++; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
479 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
480 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
481 while (*cur && isspace(*cur)) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
482 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
483 cur++; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
484 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
485 if (!*cur || *cur == ';') { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
486 if (lname) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
487 label *l = find_label(&labels, lname); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
488 if (l) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
489 l->address = pc; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
490 l->valid = 1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
491 } else { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
492 add_label(&labels, lname, pc, 1); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
493 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
494 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
495 continue; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
496 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
497 char *mnemonic = cur; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
498 while (*cur && !isspace(*cur) && *cur != ';') |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
499 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
500 cur++; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
501 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
502 if (!*cur || *cur == ';') { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
503 *cur = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
504 fprintf(stderr, "Missing arguments to instruction %s on line %d\n", mnemonic, line); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
505 goto error; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
506 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
507 *cur = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
508 cur++; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
509 if (!strncmp(mnemonic, "dc.", 3) && (mnemonic[3] == 'b' || mnemonic[3] == 'w' || mnemonic[3] == 'l')) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
510 if (mnemonic[3] != 'b' && pc & 1) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
511 outbuf[pc] = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
512 pc++; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
513 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
514 if (lname) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
515 label *l = find_label(&labels, lname); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
516 if (l) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
517 l->address = pc; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
518 l->valid = 1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
519 } else { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
520 add_label(&labels, lname, pc, 1); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
521 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
522 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
523 if (!handle_dc(mnemonic[3], cur, outbuf, &pc, &labels)) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
524 goto error; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
525 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
526 continue; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
527 } |
29
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
528 if (!strcmp(mnemonic, "incbin")) { |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
529 if (!handle_incbin(cur, outbuf, &pc)) { |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
530 goto error; |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
531 } |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
532 continue; |
5a8b5f9fc50a
Added incbin directive to assembler
Michael Pavone <pavone@retrodev.com>
parents:
25
diff
changeset
|
533 } |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
534 //automatically align to word boundary |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
535 if (pc & 1) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
536 outbuf[pc] = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
537 pc++; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
538 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
539 if (lname) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
540 label *l = find_label(&labels, lname); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
541 if (l) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
542 l->address = pc; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
543 l->valid = 1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
544 } else { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
545 add_label(&labels, lname, pc, 1); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
546 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
547 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
548 if (mnemonic[0] == 'b' && strlen(mnemonic) == 3) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
549 if (!handle_bcc(mnemonic + 1, cur, outbuf, pc, &labels)) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
550 goto error; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
551 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
552 pc+=2; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
553 continue; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
554 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
555 char *firstarg = get_arg(&cur); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
556 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
557 if (!firstarg) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
558 fprintf(stderr, "Missing arguments to instruction %s on line %d\n", mnemonic, line); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
559 goto error; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
560 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
561 char *secondarg = get_arg(&cur); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
562 char *thirdarg; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
563 int num_args; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
564 if (secondarg) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
565 thirdarg = get_arg(&cur); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
566 num_args = thirdarg ? 3 : 2; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
567 } else { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
568 thirdarg = NULL; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
569 num_args = 1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
570 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
571 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
572 inst_info inf = find_mnemonic(mnemonic); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
573 if (inf.base == 0xFFFF) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
574 fprintf(stderr, "Invalid mnemonic %s on line %d\n", mnemonic, line); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
575 goto error; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
576 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
577 if (inf.expected_args != num_args) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
578 fprintf(stderr, "Instruction %s expects %d args, but %d were given on line %d\n", mnemonic, inf.expected_args, num_args, line); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
579 goto error; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
580 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
581 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
582 uint16_t inst = inf.base; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
583 if (!process_arg(&inst, firstarg, inf.first_shift, inf.immed_min, inf.immed_max, &labels, pc)) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
584 goto error; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
585 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
586 if (secondarg) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
587 if (!process_arg(&inst, secondarg, inf.second_shift, 0, 0, &labels, pc)) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
588 goto error; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
589 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
590 if (thirdarg) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
591 if (!process_arg(&inst, thirdarg, inf.second_shift+4, 0, 0, &labels, pc)) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
592 goto error; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
593 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
594 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
595 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
596 outbuf[pc++] = inst >> 8; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
597 outbuf[pc++] = inst; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
598 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
599 for (int i = 0; i < labels.num_labels; i++) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
600 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
601 if (labels.labels[i].references) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
602 if (!labels.labels[i].valid) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
603 fprintf(stderr, "ERROR: label %s is used but not defined\n", labels.labels[i].name); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
604 goto error; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
605 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
606 uint16_t address = labels.labels[i].address; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
607 for(reference *ref = labels.labels[i].references; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
608 ref < labels.labels[i].references + labels.labels[i].num_references; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
609 ref++ |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
610 ) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
611 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
612 //TODO: Warn when addresses don't fit |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
613 switch(ref->type) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
614 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
615 case IMMED4: |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
616 if (address == 8) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
617 address = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
618 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
619 outbuf[ref->address] |= address & 0xF; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
620 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
621 case IMMED8: |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
622 outbuf[ref->address] |= (address & 0xF0) >> 4; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
623 outbuf[ref->address+1] |= (address & 0xF) << 4; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
624 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
625 case IMMEDHI: |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
626 outbuf[ref->address] |= (address & 0xF000) >> 12; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
627 outbuf[ref->address+1] |= (address & 0xF00) >> 4; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
628 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
629 case BCCDST: { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
630 if (address & 1) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
631 fprintf(stderr, "ERROR: Label %s refers to odd address %X which is illegal for bcc\n", labels.labels[i].name, address); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
632 goto error; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
633 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
634 int diff = address - (ref->address + 4); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
635 if (diff < -512 || diff > 510) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
636 fprintf(stderr, "ERROR: Label %s has address %X which is out of range of bcc at %X\n", labels.labels[i].name, address, ref->address); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
637 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
638 outbuf[ref->address] |= (diff & 0x1E0) >> 5; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
639 outbuf[ref->address+1] |= (diff & 0x01E) << 3; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
640 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
641 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
642 case DCB: |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
643 outbuf[ref->address] = address; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
644 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
645 case DCW: |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
646 outbuf[ref->address] = address >> 8; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
647 outbuf[ref->address+1] = address; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
648 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
649 case DCL: |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
650 outbuf[ref->address] = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
651 outbuf[ref->address+1] = 0; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
652 outbuf[ref->address+2] = address >> 8; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
653 outbuf[ref->address+3] = address; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
654 break; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
655 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
656 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
657 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
658 } |
59
b15187a99d6f
Add a command line option for printing out label addresses on the command line. Useful for debugging purposes.
Michael Pavone <pavone@retrodev.com>
parents:
58
diff
changeset
|
659 if (print_labels) { |
b15187a99d6f
Add a command line option for printing out label addresses on the command line. Useful for debugging purposes.
Michael Pavone <pavone@retrodev.com>
parents:
58
diff
changeset
|
660 for (int i = 0; i < labels.num_labels; i++) |
b15187a99d6f
Add a command line option for printing out label addresses on the command line. Useful for debugging purposes.
Michael Pavone <pavone@retrodev.com>
parents:
58
diff
changeset
|
661 { |
b15187a99d6f
Add a command line option for printing out label addresses on the command line. Useful for debugging purposes.
Michael Pavone <pavone@retrodev.com>
parents:
58
diff
changeset
|
662 printf("%s: %X\n", labels.labels[i].name, labels.labels[i].address); |
b15187a99d6f
Add a command line option for printing out label addresses on the command line. Useful for debugging purposes.
Michael Pavone <pavone@retrodev.com>
parents:
58
diff
changeset
|
663 } |
b15187a99d6f
Add a command line option for printing out label addresses on the command line. Useful for debugging purposes.
Michael Pavone <pavone@retrodev.com>
parents:
58
diff
changeset
|
664 } |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
665 if (pc == fwrite(outbuf, 1, pc, output)) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
666 free_labels(&labels); |
59
b15187a99d6f
Add a command line option for printing out label addresses on the command line. Useful for debugging purposes.
Michael Pavone <pavone@retrodev.com>
parents:
58
diff
changeset
|
667 return 0; |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
668 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
669 fputs("Error writing to output file\n", stderr); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
670 error: |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
671 free_labels(&labels); |
59
b15187a99d6f
Add a command line option for printing out label addresses on the command line. Useful for debugging purposes.
Michael Pavone <pavone@retrodev.com>
parents:
58
diff
changeset
|
672 return 1; |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
673 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
674 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
675 |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
676 int main(int argc, char ** argv) |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
677 { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
678 if (argc < 3) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
679 fputs("Usage: asm INFILE OUTFILE\n", stderr); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
680 return 1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
681 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
682 FILE *infile = strcmp("-", argv[1]) ? fopen(argv[1], "r") : stdin; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
683 if (!infile) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
684 fprintf(stderr, "Failed to open %s for reading\n", argv[1]); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
685 return 1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
686 } |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
687 FILE *outfile = strcmp("-", argv[2]) ? fopen(argv[2], "w") : stdout; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
688 if (!outfile) { |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
689 fprintf(stderr, "Failed to open %s for writing\n", argv[2]); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
690 return 1; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
691 } |
59
b15187a99d6f
Add a command line option for printing out label addresses on the command line. Useful for debugging purposes.
Michael Pavone <pavone@retrodev.com>
parents:
58
diff
changeset
|
692 uint8_t print_labels = argc > 3 && !strcmp("-l", argv[3]); |
b15187a99d6f
Add a command line option for printing out label addresses on the command line. Useful for debugging purposes.
Michael Pavone <pavone@retrodev.com>
parents:
58
diff
changeset
|
693 int ret = assemble_file(infile, outfile, print_labels); |
6
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
694 fclose(infile); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
695 fclose(outfile); |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
696 return ret; |
74a6d629b78f
Added assembler. Removed hand-assembled version of hello world example
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
697 } |