1 |
dpavlin |
1 |
/* |
2 |
|
|
* Cisco 3600 simulation platform. |
3 |
|
|
* Copyright (c) 2006 Christophe Fillot (cf@utc.fr) |
4 |
|
|
* |
5 |
|
|
* NS16552 DUART. |
6 |
|
|
*/ |
7 |
|
|
|
8 |
|
|
#include <stdio.h> |
9 |
|
|
#include <stdlib.h> |
10 |
|
|
#include <string.h> |
11 |
|
|
#include <unistd.h> |
12 |
|
|
#include <sys/types.h> |
13 |
|
|
|
14 |
|
|
#include <termios.h> |
15 |
|
|
#include <fcntl.h> |
16 |
|
|
#include <pthread.h> |
17 |
|
|
|
18 |
|
|
#include "ptask.h" |
19 |
|
|
#include "mips64.h" |
20 |
|
|
#include "dynamips.h" |
21 |
|
|
#include "memory.h" |
22 |
|
|
#include "device.h" |
23 |
|
|
#include "dev_vtty.h" |
24 |
|
|
|
25 |
|
|
/* Debugging flags */ |
26 |
|
|
#define DEBUG_UNKNOWN 1 |
27 |
|
|
#define DEBUG_ACCESS 0 |
28 |
|
|
|
29 |
|
|
/* Interrupt Enable Register (IER) */ |
30 |
|
|
#define IER_ERXRDY 0x1 |
31 |
|
|
#define IER_ETXRDY 0x2 |
32 |
|
|
|
33 |
|
|
/* Interrupt Identification Register */ |
34 |
|
|
#define IIR_NPENDING 0x01 /* 0: irq pending, 1: no irq pending */ |
35 |
|
|
#define IIR_TXRDY 0x02 |
36 |
|
|
#define IIR_RXRDY 0x04 |
37 |
|
|
|
38 |
|
|
/* Line Status Register (LSR) */ |
39 |
|
|
#define LSR_RXRDY 0x01 |
40 |
|
|
#define LSR_TXRDY 0x20 |
41 |
|
|
#define LSR_TXEMPTY 0x40 |
42 |
|
|
|
43 |
|
|
/* UART channel */ |
44 |
|
|
struct ns16552_channel { |
45 |
|
|
u_int ier,output; |
46 |
|
|
vtty_t *vtty; |
47 |
|
|
}; |
48 |
|
|
|
49 |
|
|
/* NS16552 structure */ |
50 |
|
|
struct ns16552_data { |
51 |
|
|
vm_obj_t vm_obj; |
52 |
|
|
struct vdevice dev; |
53 |
|
|
vm_instance_t *vm; |
54 |
|
|
u_int irq; |
55 |
|
|
|
56 |
|
|
/* Periodic task to trigger DUART IRQ */ |
57 |
|
|
ptask_id_t tid; |
58 |
|
|
|
59 |
|
|
struct ns16552_channel channel[2]; |
60 |
|
|
u_int duart_irq_seq; |
61 |
|
|
}; |
62 |
|
|
|
63 |
|
|
/* Console port input */ |
64 |
|
|
static void tty_con_input(vtty_t *vtty) |
65 |
|
|
{ |
66 |
|
|
struct ns16552_data *d = vtty->priv_data; |
67 |
|
|
|
68 |
|
|
if (d->channel[0].ier & IER_ERXRDY) |
69 |
|
|
vm_set_irq(d->vm,d->irq); |
70 |
|
|
} |
71 |
|
|
|
72 |
|
|
/* AUX port input */ |
73 |
|
|
static void tty_aux_input(vtty_t *vtty) |
74 |
|
|
{ |
75 |
|
|
struct ns16552_data *d = vtty->priv_data; |
76 |
|
|
|
77 |
|
|
if (d->channel[1].ier & IER_ERXRDY) |
78 |
|
|
vm_set_irq(d->vm,d->irq); |
79 |
|
|
} |
80 |
|
|
|
81 |
|
|
/* IRQ trickery for Console and AUX ports */ |
82 |
|
|
static int tty_trigger_dummy_irq(struct ns16552_data *d,void *arg) |
83 |
|
|
{ |
84 |
|
|
d->duart_irq_seq++; |
85 |
|
|
|
86 |
|
|
if (d->duart_irq_seq == 2) { |
87 |
|
|
if (d->channel[0].ier & IER_ETXRDY) { |
88 |
|
|
d->channel[0].output = TRUE; |
89 |
|
|
vm_set_irq(d->vm,d->irq); |
90 |
|
|
} |
91 |
|
|
|
92 |
|
|
#if 0 |
93 |
|
|
if (d->channel[1].ier & IER_ETXRDY) { |
94 |
|
|
d->channel[1].output = TRUE; |
95 |
|
|
vm_set_irq(d->vm,d->irq); |
96 |
|
|
} |
97 |
|
|
#endif |
98 |
|
|
|
99 |
|
|
d->duart_irq_seq = 0; |
100 |
|
|
} |
101 |
|
|
|
102 |
|
|
return(0); |
103 |
|
|
} |
104 |
|
|
|
105 |
|
|
/* |
106 |
|
|
* dev_ns16552_access() |
107 |
|
|
*/ |
108 |
|
|
void *dev_ns16552_access(cpu_mips_t *cpu,struct vdevice *dev,m_uint32_t offset, |
109 |
|
|
u_int op_size,u_int op_type,m_uint64_t *data) |
110 |
|
|
{ |
111 |
|
|
struct ns16552_data *d = dev->priv_data; |
112 |
|
|
int channel = 0; |
113 |
|
|
u_char odata; |
114 |
|
|
|
115 |
|
|
if (op_type == MTS_READ) |
116 |
|
|
*data = 0; |
117 |
|
|
|
118 |
|
|
#if DEBUG_ACCESS |
119 |
|
|
if (op_type == MTS_READ) { |
120 |
|
|
cpu_log(cpu,"NS16552","read from 0x%x, pc=0x%llx, ra=0x%llx\n", |
121 |
|
|
offset,cpu->pc,cpu->gpr[MIPS_GPR_RA]); |
122 |
|
|
} else { |
123 |
|
|
cpu_log(cpu,"NS16552","write to 0x%x, value=0x%llx, pc=0x%llx\n", |
124 |
|
|
offset,*data,cpu->pc); |
125 |
|
|
} |
126 |
|
|
#endif |
127 |
|
|
|
128 |
|
|
if (offset >= 0x40) |
129 |
|
|
channel = 1; |
130 |
|
|
|
131 |
|
|
switch(offset) { |
132 |
|
|
/* Receiver Buffer Reg. (RBR) / Transmitting Holding Reg. (THR) */ |
133 |
|
|
case 0x00: |
134 |
|
|
case 0x40: |
135 |
|
|
if (op_type == MTS_WRITE) { |
136 |
|
|
vtty_put_char(d->channel[channel].vtty,(char)*data); |
137 |
|
|
|
138 |
|
|
if (d->channel[channel].ier & IER_ETXRDY) |
139 |
|
|
vm_set_irq(d->vm,d->irq); |
140 |
|
|
|
141 |
|
|
d->channel[channel].output = TRUE; |
142 |
|
|
} else { |
143 |
|
|
*data = vtty_get_char(d->channel[channel].vtty); |
144 |
|
|
} |
145 |
|
|
break; |
146 |
|
|
|
147 |
|
|
/* Interrupt Enable Register (IER) */ |
148 |
|
|
case 0x08: |
149 |
|
|
case 0x48: |
150 |
|
|
if (op_type == MTS_READ) { |
151 |
|
|
*data = d->channel[channel].ier; |
152 |
|
|
} else { |
153 |
|
|
d->channel[channel].ier = *data & 0xFF; |
154 |
|
|
|
155 |
|
|
if ((*data & 0x02) == 0) { /* transmit holding register */ |
156 |
|
|
d->channel[channel].vtty->managed_flush = TRUE; |
157 |
|
|
vtty_flush(d->channel[channel].vtty); |
158 |
|
|
} |
159 |
|
|
} |
160 |
|
|
break; |
161 |
|
|
|
162 |
|
|
/* Interrupt Ident Register (IIR) */ |
163 |
|
|
case 0x10: |
164 |
|
|
vm_clear_irq(d->vm,d->irq); |
165 |
|
|
case 0x50: |
166 |
|
|
if (op_type == MTS_READ) { |
167 |
|
|
odata = IIR_NPENDING; |
168 |
|
|
|
169 |
|
|
if (vtty_is_char_avail(d->channel[channel].vtty)) { |
170 |
|
|
odata = IIR_RXRDY; |
171 |
|
|
} else { |
172 |
|
|
if (d->channel[channel].output) { |
173 |
|
|
odata = IIR_TXRDY; |
174 |
|
|
d->channel[channel].output = 0; |
175 |
|
|
} |
176 |
|
|
} |
177 |
|
|
|
178 |
|
|
*data = odata; |
179 |
|
|
} |
180 |
|
|
break; |
181 |
|
|
|
182 |
|
|
/* Line Status Register (LSR) */ |
183 |
|
|
case 0x28: |
184 |
|
|
case 0x68: |
185 |
|
|
if (op_type == MTS_READ) { |
186 |
|
|
odata = 0; |
187 |
|
|
|
188 |
|
|
if (vtty_is_char_avail(d->channel[channel].vtty)) |
189 |
|
|
odata |= LSR_RXRDY; |
190 |
|
|
|
191 |
|
|
odata |= LSR_TXRDY|LSR_TXEMPTY; |
192 |
|
|
*data = odata; |
193 |
|
|
} |
194 |
|
|
break; |
195 |
|
|
|
196 |
|
|
#if DEBUG_UNKNOWN |
197 |
|
|
default: |
198 |
|
|
if (op_type == MTS_READ) { |
199 |
|
|
cpu_log(cpu,"NS16552","read from addr 0x%x, pc=0x%llx (size=%u)\n", |
200 |
|
|
offset,cpu->pc,op_size); |
201 |
|
|
} else { |
202 |
|
|
cpu_log(cpu,"NS16552","write to addr 0x%x, value=0x%llx, " |
203 |
|
|
"pc=0x%llx (size=%u)\n",offset,*data,cpu->pc,op_size); |
204 |
|
|
} |
205 |
|
|
#endif |
206 |
|
|
} |
207 |
|
|
|
208 |
|
|
return NULL; |
209 |
|
|
} |
210 |
|
|
|
211 |
|
|
/* Shutdown a NS16552 device */ |
212 |
|
|
void dev_ns16552_shutdown(vm_instance_t *vm,struct ns16552_data *d) |
213 |
|
|
{ |
214 |
|
|
if (d != NULL) { |
215 |
|
|
d->channel[0].vtty->read_notifier = NULL; |
216 |
|
|
d->channel[1].vtty->read_notifier = NULL; |
217 |
|
|
|
218 |
|
|
/* Remove the periodic task */ |
219 |
|
|
ptask_remove(d->tid); |
220 |
|
|
|
221 |
|
|
/* Remove the device */ |
222 |
|
|
dev_remove(vm,&d->dev); |
223 |
|
|
|
224 |
|
|
/* Free the structure itself */ |
225 |
|
|
free(d); |
226 |
|
|
} |
227 |
|
|
} |
228 |
|
|
|
229 |
|
|
/* Create a NS16552 device */ |
230 |
|
|
int dev_ns16552_init(vm_instance_t *vm,m_uint64_t paddr,m_uint32_t len, |
231 |
|
|
u_int irq,vtty_t *vtty_portA,vtty_t *vtty_portB) |
232 |
|
|
{ |
233 |
|
|
struct ns16552_data *d; |
234 |
|
|
|
235 |
|
|
/* Allocate private data structure */ |
236 |
|
|
if (!(d = malloc(sizeof(*d)))) { |
237 |
|
|
fprintf(stderr,"NS16552: out of memory\n"); |
238 |
|
|
return(-1); |
239 |
|
|
} |
240 |
|
|
|
241 |
|
|
memset(d,0,sizeof(*d)); |
242 |
|
|
d->vm = vm; |
243 |
|
|
d->irq = irq; |
244 |
|
|
d->channel[0].vtty = vtty_portA; |
245 |
|
|
d->channel[1].vtty = vtty_portB; |
246 |
|
|
|
247 |
|
|
vm_object_init(&d->vm_obj); |
248 |
|
|
d->vm_obj.name = "ns16552"; |
249 |
|
|
d->vm_obj.data = d; |
250 |
|
|
d->vm_obj.shutdown = (vm_shutdown_t)dev_ns16552_shutdown; |
251 |
|
|
|
252 |
|
|
/* Set device properties */ |
253 |
|
|
dev_init(&d->dev); |
254 |
|
|
d->dev.name = "ns16552"; |
255 |
|
|
d->dev.phys_addr = paddr; |
256 |
|
|
d->dev.phys_len = len; |
257 |
|
|
d->dev.handler = dev_ns16552_access; |
258 |
|
|
d->dev.priv_data = d; |
259 |
|
|
|
260 |
|
|
vtty_portA->priv_data = d; |
261 |
|
|
vtty_portB->priv_data = d; |
262 |
|
|
vtty_portA->read_notifier = tty_con_input; |
263 |
|
|
vtty_portB->read_notifier = tty_aux_input; |
264 |
|
|
|
265 |
|
|
/* Trigger periodically a dummy IRQ to flush buffers */ |
266 |
|
|
d->tid = ptask_add((ptask_callback)tty_trigger_dummy_irq,d,NULL); |
267 |
|
|
|
268 |
|
|
/* Map this device to the VM */ |
269 |
|
|
vm_bind_device(vm,&d->dev); |
270 |
|
|
vm_object_add(vm,&d->vm_obj); |
271 |
|
|
return(0); |
272 |
|
|
} |