-
Notifications
You must be signed in to change notification settings - Fork 0
/
alpha.c
250 lines (202 loc) · 5 KB
/
alpha.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
/* This file is part of 34S.
*
* 34S is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* 34S is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with 34S. If not, see <http://www.gnu.org/licenses/>.
*/
#include "alpha.h"
#include "xeq.h"
#include "decn.h"
#include "display.h"
#include "int.h"
#include "consts.h"
/* Append a single character to the alpha register
*/
static char *internal_add_char(char *a, char c) {
if (a == Alpha+NUMALPHA)
*scopy(Alpha, Alpha+1) = c;
else {
*a++ = c;
*a = '\0';
}
return a;
}
static void add_char(char c) {
internal_add_char(find_char(Alpha, '\0'), c);
}
/* Append a string to the Alpha register.
*/
void add_string(const char *s) {
char *a = find_char(Alpha, '\0');
while (*s != '\0')
a = internal_add_char(a, *s++);
}
/* Clear the Alpha register
*/
void clralpha(enum nilop op) {
DispMsg = NULL;
xset(Alpha, '\0', NUMALPHA);
}
/* Display the Alpha register
*/
void alpha_view_common(int reg) {
DispMsg = Alpha;
ShowRegister = reg;
State2.disp_small = 0;
frozen_display();
}
void alpha_view(enum nilop op) {
alpha_view_common((unsigned int)-1);
}
/* View a specified register
*/
void alpha_view_reg(unsigned int arg, enum rarg op) {
alpha_view_common(arg);
}
/* Append the character from the given register or passed arg to Alpha
*/
void cmdalpha(unsigned int arg, enum rarg op) {
add_char(arg & 0xff);
set_entry();
}
/* Multiple append to Alpha */
void multialpha(opcode op, enum multiops mopr) {
char buf[4];
buf[0] = op & 0xff;
buf[1] = (op >> 16) & 0xff;
buf[2] = (op >> 24) & 0xff;
buf[3] = '\0';
add_string(buf);
}
/* Append integer value to Alpha
*/
void alpha_ip(unsigned int arg, enum rarg op) {
unsigned int n;
char tbuf[16], *p;
int sgn;
if (is_intmode()) {
n = (unsigned int) extract_value(get_reg_n_int(arg), &sgn);
// should convert this using the current display mode...
} else {
decNumber x;
int z;
getRegister(&x, arg);
z = dn_to_int(&x);
sgn = z < 0;
n = sgn ? -z : z;
}
p = tbuf;
if (sgn)
*p++ = '-';
p = num_arg(p, n);
*p = '\0';
add_string(tbuf);
}
/* Return length of Alpha register
*/
unsigned int alen(void) {
return find_char(Alpha, '\0') - Alpha;
}
void alpha_length(enum nilop op) {
setX_int_sgn(alen(), 0);
}
/* Shift or rotate Alpha register arg positions
*/
void alpha_shift_l(unsigned int arg, enum rarg op) {
unsigned int i;
const int rot = (op == RARG_ALRL);
for (i=0; i<arg; i++) {
const char c = rot?Alpha[0]:'\0';
*scopy(Alpha, Alpha+1) = c;
}
}
void alpha_shift_r(unsigned int arg, enum rarg op) {
unsigned int i;
for (i=0; i<arg; i++) {
xcopy(Alpha+1, Alpha, NUMALPHA-1);
Alpha[0] = ' ';
}
}
void alpha_rot_r(unsigned int arg, enum rarg op) {
unsigned int i;
const unsigned int al = alen();
if (al)
for (i=0; i<arg; i++) {
const char c = Alpha[al-1];
xcopy(Alpha+1, Alpha, al-1);
Alpha[0] = c;
}
}
/* Take first character from Alpha and return its code in X.
* remove the character from Alpha
*/
void alpha_tox(enum nilop op) {
setX_int_sgn(Alpha[0] & 0xff, 0);
alpha_shift_l(1, RARG_ALSL);
}
void alpha_fromx(enum nilop op) {
int s;
add_char(0xff & getX_int_sgn(&s));
}
/* Recall a register and append to Alpha.
* This honours the current display mode.
*/
void alpha_reg(unsigned int arg, enum rarg op) {
char buf[65];
xset(buf, '\0', sizeof(buf));
format_reg(arg, buf);
add_string(buf);
}
/* Return the number of characters being stored in a register.
* For reals this is 6 to match the 41 series. For integers, it is as
* many as will fit into the current sord size.
*/
static int char_per_reg(void) {
return is_intmode()?(word_size() / 8):CHARS_IN_REG;
}
/* Sto start of Alpha register into arg
*/
void alpha_sto(unsigned int arg, enum rarg op) {
unsigned long long int z = 0;
int i;
const int n = char_per_reg();
for (i=0; Alpha[i] != '\0' && i<n; i++)
z = (z << 8) | (0xff & Alpha[i]);
set_reg_n_int_sgn(arg, z, 0);
}
/* Alpha recall a register and convert it into the supplied
* buffer and return a pointer to the first character (which won't
* always be the start of the buffer.
*/
char *alpha_rcl_s(int index, char buf[12]) {
int i;
unsigned long long int z = get_reg_n_int_sgn(index, &i);
char *p = buf + 11;
int n = char_per_reg();
*p = '\0';
for (; z != 0 && n>0; n--) {
*--p = z & 0xff;
z >>= 8;
}
return p;
}
/* RCL register containing alpha characters into Alpha
*/
void alpha_rcl(unsigned int arg, enum rarg op) {
char buf[12];
add_string(alpha_rcl_s(arg, buf));
}
/* Turn alpha mode on and off
*/
void alpha_onoff(enum nilop op) {
State2.alphas = (op == OP_ALPHAON) ? 1 : 0;
}