src/hardware/sysclk-lwla/lwla1016.c

   1 /*
   2  * This file is part of the libsigrok project.
   3  *
   4  * Copyright (C) 2015 Daniel Elstner <daniel.kitta@gmail.com>
   5  *
   6  * This program is free software: you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation, either version 3 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  18  */
  19
  20 #include <config.h>
  21 #include "lwla.h"
  22 #include "protocol.h"
  23
  24 /* Number of logic channels.
  25  */
  26 #define NUM_CHANNELS    16
  27
  28 /* Unit size for the sigrok logic datafeed.
  29  */
  30 #define UNIT_SIZE       ((NUM_CHANNELS + 7) / 8)
  31
  32 /* Size of the acquisition buffer in device memory units.
  33  */
  34 #define MEMORY_DEPTH    (256 * 1024)    /* 256k x 32 bit */
  35
  36 /* Capture memory read start address.
  37  */
  38 #define READ_START_ADDR 2
  39
  40 /* Number of device memory units (32 bit) to read at a time.
  41  */
  42 #define READ_CHUNK_LEN  250
  43
  44 /** LWLA1016 register addresses.
  45  */
  46 enum reg_addr {
  47         REG_CHAN_MASK   = 0x1000, /* bit mask of enabled channels */
  48
  49         REG_DURATION    = 0x1010, /* capture duration in ms */
  50
  51         REG_MEM_WR_PTR  = 0x1070,
  52         REG_MEM_RD_PTR  = 0x1074,
  53         REG_MEM_DATA    = 0x1078,
  54         REG_MEM_CTRL    = 0x107C,
  55
  56         REG_CAP_COUNT   = 0x10B0,
  57
  58         REG_TEST_ID     = 0x10B4, /* read */
  59         REG_TRG_SEL     = 0x10B4, /* write */
  60
  61         REG_CAP_CTRL    = 0x10B8,
  62
  63         REG_CAP_TOTAL   = 0x10BC, /* read */
  64         REG_DIV_COUNT   = 0x10BC, /* write */
  65 };
  66
  67 /** Flag bits for REG_MEM_CTRL.
  68  */
  69 enum mem_ctrl_flag {
  70         MEM_CTRL_RESET  = 1 << 0,
  71         MEM_CTRL_WRITE  = 1 << 1,
  72 };
  73
  74 /** Flag bits for REG_CAP_CTRL.
  75  */
  76 enum cap_ctrl_flag {
  77         CAP_CTRL_FIFO32_FULL    = 1 << 0, /* "fifo32_ful" bit */
  78         CAP_CTRL_FIFO64_FULL    = 1 << 1, /* "fifo64_ful" bit */
  79         CAP_CTRL_TRG_EN         = 1 << 2, /* "trg_en" bit */
  80         CAP_CTRL_CLR_TIMEBASE   = 1 << 3, /* "do_clr_timebase" bit */
  81         CAP_CTRL_FIFO_EMPTY     = 1 << 4, /* "fifo_empty" bit */
  82         CAP_CTRL_SAMPLE_EN      = 1 << 5, /* "sample_en" bit */
  83         CAP_CTRL_CNTR_NOT_ENDR  = 1 << 6, /* "cntr_not_endr" bit */
  84 };
  85
  86 /* Available FPGA configurations.
  87  */
  88 enum fpga_config {
  89         FPGA_100 = 0,   /* 100 MS/s, no compression */
  90         FPGA_100_TS,    /* 100 MS/s, timing-state mode */
  91 };
  92
  93 /* FPGA bitstream resource filenames.
  94  */
  95 static const char bitstream_map[][32] = {
  96         [FPGA_100]      = "sysclk-lwla1016-100.rbf",
  97         [FPGA_100_TS]   = "sysclk-lwla1016-100-ts.rbf",
  98 };
  99
 100 /* Demangle incoming sample data from the transfer buffer.
 101  */
 102 static void read_response(struct acquisition_state *acq)
 103 {
 104         uint32_t *in_p, *out_p;
 105         unsigned int words_left, num_words;
 106         unsigned int max_samples, run_samples;
 107         unsigned int i;
 108
 109         words_left = MIN(acq->mem_addr_next, acq->mem_addr_stop)
 110                         - acq->mem_addr_done;
 111         /* Calculate number of samples to write into packet. */
 112         max_samples = MIN(acq->samples_max - acq->samples_done,
 113                           PACKET_SIZE / UNIT_SIZE - acq->out_index);
 114         run_samples = MIN(max_samples, 2 * words_left);
 115
 116         /* Round up in case the samples limit is an odd number. */
 117         num_words = (run_samples + 1) / 2;
 118         /*
 119          * Without RLE the output index will always be a multiple of two
 120          * samples (at least before reaching the samples limit), thus 32-bit
 121          * alignment is guaranteed.
 122          */
 123         out_p = (uint32_t *)&acq->out_packet[acq->out_index * UNIT_SIZE];
 124         in_p  = &acq->xfer_buf_in[acq->in_index];
 125         /*
 126          * Transfer two samples at a time, taking care to swap the 16-bit
 127          * halves of each input word but keeping the samples themselves in
 128          * the original Little Endian order.
 129          */
 130         for (i = 0; i < num_words; i++)
 131                 out_p[i] = LROTATE(in_p[i], 16);
 132
 133         acq->in_index += num_words;
 134         acq->mem_addr_done += num_words;
 135         acq->out_index += run_samples;
 136         acq->samples_done += run_samples;
 137 }
 138
 139 /* Demangle and decompress incoming sample data from the transfer buffer.
 140  */
 141 static void read_response_rle(struct acquisition_state *acq)
 142 {
 143         uint32_t *in_p;
 144         uint16_t *out_p;
 145         unsigned int words_left;
 146         unsigned int max_samples, run_samples;
 147         unsigned int wi, ri;
 148         uint32_t word;
 149         uint16_t sample;
 150
 151         words_left = MIN(acq->mem_addr_next, acq->mem_addr_stop)
 152                         - acq->mem_addr_done;
 153         in_p = &acq->xfer_buf_in[acq->in_index];
 154
 155         for (wi = 0;; wi++) {
 156                 /* Calculate number of samples to write into packet. */
 157                 max_samples = MIN(acq->samples_max - acq->samples_done,
 158                                   PACKET_SIZE / UNIT_SIZE - acq->out_index);
 159                 run_samples = MIN(max_samples, acq->run_len);
 160
 161                 /* Expand run-length samples into session packet. */
 162                 sample = GUINT16_TO_LE(acq->sample);
 163                 out_p = &((uint16_t *)acq->out_packet)[acq->out_index];
 164
 165                 for (ri = 0; ri < run_samples; ri++)
 166                         out_p[ri] = sample;
 167
 168                 acq->run_len -= run_samples;
 169                 acq->out_index += run_samples;
 170                 acq->samples_done += run_samples;
 171
 172                 if (run_samples == max_samples)
 173                         break; /* packet full or sample limit reached */
 174                 if (wi >= words_left)
 175                         break; /* done with current transfer */
 176
 177                 word = GUINT32_FROM_LE(in_p[wi]);
 178                 acq->sample = word >> 16;
 179                 acq->run_len = (word & 0xFFFF) + 1;
 180         }
 181         acq->in_index += wi;
 182         acq->mem_addr_done += wi;
 183 }
 184
 185 /* Check whether we can receive responses of more than 64 bytes.
 186  * The FX2 firmware of the LWLA1016 has a bug in the reset logic which
 187  * sometimes causes the response endpoint to be limited to transfers of
 188  * 64 bytes at a time, instead of the expected 2*512 bytes. The problem
 189  * can be worked around by never requesting more than 64 bytes.
 190  * This quirk manifests itself only under certain conditions, and some
 191  * users seem to see it more frequently than others. Detect it here in
 192  * order to avoid paying the penalty unnecessarily.
 193  */
 194 static int test_read_memory(const struct sr_dev_inst *sdi,
 195                             unsigned int start, unsigned int count)
 196 {
 197         struct dev_context *devc;
 198         struct sr_usb_dev_inst *usb;
 199         unsigned int i;
 200         int xfer_len;
 201         int ret;
 202         uint16_t command[5];
 203         unsigned char reply[512];
 204
 205         devc = sdi->priv;
 206         usb  = sdi->conn;
 207
 208         command[0] = LWLA_WORD(CMD_READ_MEM32);
 209         command[1] = LWLA_WORD_0(start);
 210         command[2] = LWLA_WORD_1(start);
 211         command[3] = LWLA_WORD_0(count);
 212         command[4] = LWLA_WORD_1(count);
 213
 214         ret = lwla_send_command(usb, command, ARRAY_SIZE(command));
 215         if (ret != SR_OK)
 216                 return ret;
 217
 218         ret = lwla_receive_reply(usb, reply, sizeof(reply), &xfer_len);
 219         if (ret != SR_OK)
 220                 return ret;
 221
 222         devc->short_transfer_quirk = (xfer_len == 64);
 223
 224         for (i = xfer_len; i < 4 * count && xfer_len == 64; i += xfer_len) {
 225                 ret = lwla_receive_reply(usb, reply, sizeof(reply), &xfer_len);
 226                 if (ret != SR_OK)
 227                         return ret;
 228         }
 229         if (i != 4 * count) {
 230                 sr_err("Invalid read response of unexpected length %d.",
 231                        xfer_len);
 232                 return SR_ERR;
 233         }
 234         return SR_OK;
 235 }
 236
 237 /* Select and transfer FPGA bitstream for the current configuration.
 238  */
 239 static int apply_fpga_config(const struct sr_dev_inst *sdi)
 240 {
 241         struct dev_context *devc;
 242         struct drv_context *drvc;
 243         int config;
 244         int ret;
 245
 246         devc = sdi->priv;
 247         drvc = sdi->driver->context;
 248
 249         if (sdi->status == SR_ST_INACTIVE)
 250                 return SR_OK; /* the LWLA1016 has no off state */
 251
 252         config = (devc->cfg_rle) ? FPGA_100_TS : FPGA_100;
 253
 254         if (config == devc->active_fpga_config)
 255                 return SR_OK; /* no change */
 256
 257         ret = lwla_send_bitstream(drvc->sr_ctx, sdi->conn,
 258                                   bitstream_map[config]);
 259         devc->active_fpga_config = (ret == SR_OK) ? config : FPGA_NOCONF;
 260
 261         return ret;
 262 }
 263
 264 /* Perform initialization self test.
 265  */
 266 static int device_init_check(const struct sr_dev_inst *sdi)
 267 {
 268         static const struct regval mem_reset[] = {
 269                 {REG_MEM_CTRL, MEM_CTRL_RESET},
 270                 {REG_MEM_CTRL, 0},
 271         };
 272         uint32_t value;
 273         int ret;
 274
 275         const unsigned int test_count = 24;
 276
 277         lwla_read_reg(sdi->conn, REG_TEST_ID, &value);
 278
 279         /* Ignore the value returned by the first read. */
 280         ret = lwla_read_reg(sdi->conn, REG_TEST_ID, &value);
 281         if (ret != SR_OK)
 282                 return ret;
 283
 284         if (value != 0x12345678) {
 285                 sr_err("Received invalid test word 0x%08X.", value);
 286                 return SR_ERR;
 287         }
 288
 289         ret = lwla_write_regs(sdi->conn, mem_reset, ARRAY_SIZE(mem_reset));
 290         if (ret != SR_OK)
 291                 return ret;
 292
 293         ret = test_read_memory(sdi, 0, test_count);
 294         if (ret != SR_OK)
 295                 return ret;
 296         /*
 297          * Issue another read request or the device will stall, for whatever
 298          * reason. This happens both with and without the short transfer quirk.
 299          */
 300         return test_read_memory(sdi, test_count, test_count);
 301 }
 302
 303 static int setup_acquisition(const struct sr_dev_inst *sdi)
 304 {
 305         static const struct regval capture_init[] = {
 306                 {REG_CAP_CTRL,  0},
 307                 {REG_DURATION,  0},
 308                 {REG_MEM_CTRL,  MEM_CTRL_RESET},
 309                 {REG_MEM_CTRL,  0},
 310                 {REG_MEM_CTRL,  MEM_CTRL_WRITE},
 311                 {REG_CAP_CTRL,  CAP_CTRL_FIFO32_FULL | CAP_CTRL_FIFO64_FULL},
 312                 {REG_CAP_CTRL,  CAP_CTRL_FIFO_EMPTY},
 313                 {REG_CAP_CTRL,  0},
 314                 {REG_CAP_COUNT, MEMORY_DEPTH - 5},
 315         };
 316         struct dev_context *devc;
 317         struct sr_usb_dev_inst *usb;
 318         uint32_t divider_count, trigger_setup;
 319         int ret;
 320
 321         devc = sdi->priv;
 322         usb  = sdi->conn;
 323
 324         ret = lwla_write_reg(usb, REG_CHAN_MASK, devc->channel_mask);
 325         if (ret != SR_OK)
 326                 return ret;
 327
 328         if (devc->samplerate > 0 && devc->samplerate < SR_MHZ(100))
 329                 divider_count = SR_MHZ(100) / devc->samplerate - 1;
 330         else
 331                 divider_count = 0;
 332
 333         ret = lwla_write_reg(usb, REG_DIV_COUNT, divider_count);
 334         if (ret != SR_OK)
 335                 return ret;
 336
 337         ret = lwla_write_regs(usb, capture_init, ARRAY_SIZE(capture_init));
 338         if (ret != SR_OK)
 339                 return ret;
 340
 341         trigger_setup = ((devc->trigger_edge_mask & 0xFFFF) << 16)
 342                         | (devc->trigger_values & 0xFFFF);
 343
 344         return lwla_write_reg(usb, REG_TRG_SEL, trigger_setup);
 345 }
 346
 347 static int prepare_request(const struct sr_dev_inst *sdi)
 348 {
 349         struct dev_context *devc;
 350         struct acquisition_state *acq;
 351         unsigned int chunk_len, count;
 352
 353         devc = sdi->priv;
 354         acq  = devc->acquisition;
 355
 356         acq->xfer_out->length = 0;
 357         acq->reg_seq_pos = 0;
 358         acq->reg_seq_len = 0;
 359
 360         switch (devc->state) {
 361         case STATE_START_CAPTURE:
 362                 lwla_queue_regval(acq, REG_CAP_CTRL, CAP_CTRL_TRG_EN
 363                                 | ((devc->trigger_mask & 0xFFFF) << 16));
 364                 break;
 365         case STATE_STOP_CAPTURE:
 366                 lwla_queue_regval(acq, REG_CAP_CTRL, 0);
 367                 lwla_queue_regval(acq, REG_DIV_COUNT, 0);
 368                 break;
 369         case STATE_READ_PREPARE:
 370                 lwla_queue_regval(acq, REG_MEM_CTRL, 0);
 371                 break;
 372         case STATE_READ_FINISH:
 373                 lwla_queue_regval(acq, REG_MEM_CTRL, MEM_CTRL_RESET);
 374                 lwla_queue_regval(acq, REG_MEM_CTRL, 0);
 375                 break;
 376         case STATE_STATUS_REQUEST:
 377                 lwla_queue_regval(acq, REG_CAP_CTRL, 0);
 378                 lwla_queue_regval(acq, REG_MEM_WR_PTR, 0);
 379                 lwla_queue_regval(acq, REG_DURATION, 0);
 380                 break;
 381         case STATE_LENGTH_REQUEST:
 382                 lwla_queue_regval(acq, REG_CAP_COUNT, 0);
 383                 break;
 384         case STATE_READ_REQUEST:
 385                 /* Limit reads to 16 device words (64 bytes) at a time if the
 386                  * device firmware has the short transfer quirk. */
 387                 chunk_len = (devc->short_transfer_quirk) ? 16 : READ_CHUNK_LEN;
 388                 count = MIN(chunk_len, acq->mem_addr_stop - acq->mem_addr_next);
 389
 390                 acq->xfer_buf_out[0] = LWLA_WORD(CMD_READ_MEM32);
 391                 acq->xfer_buf_out[1] = LWLA_WORD_0(acq->mem_addr_next);
 392                 acq->xfer_buf_out[2] = LWLA_WORD_1(acq->mem_addr_next);
 393                 acq->xfer_buf_out[3] = LWLA_WORD_0(count);
 394                 acq->xfer_buf_out[4] = LWLA_WORD_1(count);
 395                 acq->xfer_out->length = 5 * sizeof(acq->xfer_buf_out[0]);
 396
 397                 acq->mem_addr_next += count;
 398                 break;
 399         default:
 400                 sr_err("BUG: unhandled request state %d.", devc->state);
 401                 return SR_ERR_BUG;
 402         }
 403
 404         return SR_OK;
 405 }
 406
 407 static int handle_response(const struct sr_dev_inst *sdi)
 408 {
 409         struct dev_context *devc;
 410         struct acquisition_state *acq;
 411         int expect_len;
 412
 413         devc = sdi->priv;
 414         acq  = devc->acquisition;
 415
 416         switch (devc->state) {
 417         case STATE_STATUS_REQUEST:
 418                 acq->status = acq->reg_sequence[0].val & 0x7F;
 419                 acq->mem_addr_fill = acq->reg_sequence[1].val;
 420                 acq->duration_now  = acq->reg_sequence[2].val;
 421                 break;
 422         case STATE_LENGTH_REQUEST:
 423                 acq->mem_addr_next = READ_START_ADDR;
 424                 acq->mem_addr_stop = acq->reg_sequence[0].val + READ_START_ADDR - 1;
 425                 break;
 426         case STATE_READ_REQUEST:
 427                 expect_len = (acq->mem_addr_next - acq->mem_addr_done
 428                                 + acq->in_index) * sizeof(acq->xfer_buf_in[0]);
 429                 if (acq->xfer_in->actual_length != expect_len) {
 430                         sr_err("Received size %d does not match expected size %d.",
 431                                acq->xfer_in->actual_length, expect_len);
 432                         devc->transfer_error = TRUE;
 433                         return SR_ERR;
 434                 }
 435                 if (acq->rle_enabled)
 436                         read_response_rle(acq);
 437                 else
 438                         read_response(acq);
 439                 break;
 440         default:
 441                 sr_err("BUG: unhandled response state %d.", devc->state);
 442                 return SR_ERR_BUG;
 443         }
 444
 445         return SR_OK;
 446 }
 447
 448 /* Model descriptor for the LWLA1016.
 449  */
 450 SR_PRIV const struct model_info lwla1016_info = {
 451         .name = "LWLA1016",
 452         .num_channels = NUM_CHANNELS,
 453
 454         .num_devopts = 5,
 455         .devopts = {
 456                 SR_CONF_LIMIT_SAMPLES | SR_CONF_GET | SR_CONF_SET,
 457                 SR_CONF_LIMIT_MSEC | SR_CONF_GET | SR_CONF_SET,
 458                 SR_CONF_SAMPLERATE | SR_CONF_GET | SR_CONF_SET | SR_CONF_LIST,
 459                 SR_CONF_TRIGGER_MATCH | SR_CONF_LIST,
 460                 SR_CONF_RLE | SR_CONF_GET | SR_CONF_SET,
 461         },
 462         .num_samplerates = 19,
 463         .samplerates = {
 464                 SR_MHZ(100),
 465                 SR_MHZ(50),  SR_MHZ(20),  SR_MHZ(10),
 466                 SR_MHZ(5),   SR_MHZ(2),   SR_MHZ(1),
 467                 SR_KHZ(500), SR_KHZ(200), SR_KHZ(100),
 468                 SR_KHZ(50),  SR_KHZ(20),  SR_KHZ(10),
 469                 SR_KHZ(5),   SR_KHZ(2),   SR_KHZ(1),
 470                 SR_HZ(500),  SR_HZ(200),  SR_HZ(100),
 471         },
 472
 473         .apply_fpga_config = &apply_fpga_config,
 474         .device_init_check = &device_init_check,
 475         .setup_acquisition = &setup_acquisition,
 476
 477         .prepare_request = &prepare_request,
 478         .handle_response = &handle_response,
 479 };