123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383 |
- /*
- * The MIT License (MIT)
- *
- * Copyright (c) 2019 Ha Thach (tinyusb.org)
- *
- * Permission is hereby granted, free of charge, to any person obtaining a copy
- * of this software and associated documentation files (the "Software"), to deal
- * in the Software without restriction, including without limitation the rights
- * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
- * copies of the Software, and to permit persons to whom the Software is
- * furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice shall be included in
- * all copies or substantial portions of the Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
- * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
- * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
- * THE SOFTWARE.
- *
- */
- #include "bsp/board.h"
- #include "tusb.h"
- #include "flash.h"
- #include "fsm.h"
- #if CFG_TUD_MSC
- #define MSC_RO_ORIGIN (0x10180000)
- #define DISK_BLOCK_NUM 1024
- #define DISK_BLOCK_SIZE 512
- #define BLOCKS_PER_SECTOR (SPI_FLASH_SECTOR_SIZE / DISK_BLOCK_SIZE)
- extern const unsigned char disk0_img[];
- struct disk_lba {
- uint8_t data[DISK_BLOCK_SIZE];
- };
- static const uint8_t last_cluster_init_info[4] = { 0xF8, 0xFF, 0xFF, 0xFF };
- static const uint8_t disk1_mbr[DISK_BLOCK_SIZE] = {
- 0xeb, 0x3c, 0x90, 0x6d, 0x6b, 0x66, 0x73, 0x2e, 0x66, 0x61, 0x74, 0x00,
- 0x02, 0x04, 0x01, 0x00, 0x02, 0x00, 0x02, 0x00, 0x04, 0xf8, 0x01, 0x00,
- 0x10, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x80, 0x00, 0x29, 0x9d, 0x0b, 0x6e, 0xd0, 0x4e, 0x4f, 0x20, 0x4e, 0x41,
- 0x4d, 0x45, 0x20, 0x20, 0x20, 0x20, 0x46, 0x41, 0x54, 0x31, 0x32, 0x20,
- 0x20, 0x20, 0x0e, 0x1f, 0xbe, 0x5b, 0x7c, 0xac, 0x22, 0xc0, 0x74, 0x0b,
- 0x56, 0xb4, 0x0e, 0xbb, 0x07, 0x00, 0xcd, 0x10, 0x5e, 0xeb, 0xf0, 0x32,
- 0xe4, 0xcd, 0x16, 0xcd, 0x19, 0xeb, 0xfe, 0x54, 0x68, 0x69, 0x73, 0x20,
- 0x69, 0x73, 0x20, 0x6e, 0x6f, 0x74, 0x20, 0x61, 0x20, 0x62, 0x6f, 0x6f,
- 0x74, 0x61, 0x62, 0x6c, 0x65, 0x20, 0x64, 0x69, 0x73, 0x6b, 0x2e, 0x20,
- 0x20, 0x50, 0x6c, 0x65, 0x61, 0x73, 0x65, 0x20, 0x69, 0x6e, 0x73, 0x65,
- 0x72, 0x74, 0x20, 0x61, 0x20, 0x62, 0x6f, 0x6f, 0x74, 0x61, 0x62, 0x6c,
- 0x65, 0x20, 0x66, 0x6c, 0x6f, 0x70, 0x70, 0x79, 0x20, 0x61, 0x6e, 0x64,
- 0x0d, 0x0a, 0x70, 0x72, 0x65, 0x73, 0x73, 0x20, 0x61, 0x6e, 0x79, 0x20,
- 0x6b, 0x65, 0x79, 0x20, 0x74, 0x6f, 0x20, 0x74, 0x72, 0x79, 0x20, 0x61,
- 0x67, 0x61, 0x69, 0x6e, 0x20, 0x2e, 0x2e, 0x2e, 0x20, 0x0d, 0x0a, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x55, 0xaa
- };
- // whether host does safe-eject
- static bool ejected = false;
- static struct disk_lba sector_cache[BLOCKS_PER_SECTOR];
- static int sector_cached = -1;
- static int sector_cache_load(uint32_t sector)
- {
- int ret;
- if (sector * SPI_FLASH_SECTOR_SIZE > DRIVE_FLASH_SIZE) {
- sector_cached = -1;
- return -1;
- }
- //ret = flash_decrypt_read_sector(sector, sector_cache[0].data);
- ret = flash_read(sector * SPI_FLASH_SECTOR_SIZE + DRIVE_FLASH_OFFSET,
- sector_cache[0].data, SPI_FLASH_SECTOR_SIZE);
- if (ret < 0) {
- sector_cached = -1;
- return ret;
- }
- sector_cached = sector;
- }
- static void sector_cache_commit(void)
- {
- int ret;
- uint32_t sector = sector_cached;
- if (sector * SPI_FLASH_SECTOR_SIZE > DRIVE_FLASH_SIZE)
- return;
- //flash_encrypt_write_sector(sector, sector_cache[0].data);
- flash_write(sector * SPI_FLASH_SECTOR_SIZE + DRIVE_FLASH_OFFSET,
- sector_cache[0].data, SPI_FLASH_SECTOR_SIZE);
- }
- struct drive {
- const uint8_t lun;
- const char vid[8];
- const char pid[16];
- const char rev[4];
- const uint32_t n_lba;
- };
- #define N_DRIVES 2
- static uint8_t drv_active[N_DRIVES] = {1, 1};
- const char global_vid[8] = "DLX";
- const char host_pid[16] = "MEP Tools";
- const char vault_pid[16] = "MEP Vault";
- const char global_rev[4] = "0.1";
- static const struct drive Drives[N_DRIVES] = {
- { 0, "DLX", "MEP Tools", "0.1", 256},
- { 1, "DLX", "MEP Vault", "0.1", 1024}
- };
- uint8_t tud_msc_get_maxlun_cb(void)
- {
- return 2;
- }
- // Invoked when received SCSI_CMD_INQUIRY
- // Application fill vendor id, product id and revision with string up to 8, 16, 4 characters respectively
- void tud_msc_inquiry_cb(uint8_t lun, uint8_t vendor_id[8], uint8_t product_id[16], uint8_t product_rev[4])
- {
- const struct drive *drv;
- if (lun >= N_DRIVES) {
- return;
- }
- drv = &Drives[lun];
- memcpy(vendor_id , drv->vid, strlen(drv->vid));
- memcpy(product_id , drv->pid, strlen(drv->pid));
- memcpy(product_rev, drv->rev, strlen(drv->rev));
- }
- // Invoked when received Test Unit Ready command.
- // return true allowing host to read/write this LUN e.g SD card inserted
- bool tud_msc_test_unit_ready_cb(uint8_t lun)
- {
- if (lun >= N_DRIVES) {
- tud_msc_set_sense(lun, SCSI_SENSE_NOT_READY, 0x3a, 0x00);
- return false;
- }
- if (drv_active[lun]) {
- return true;
- } else {
- tud_msc_set_sense(lun, SCSI_SENSE_NOT_READY, 0x3a, 0x00);
- return false;
- }
- }
- // Invoked when received SCSI_CMD_READ_CAPACITY_10 and SCSI_CMD_READ_FORMAT_CAPACITY to determine the disk size
- // Application update block count and block size
- void tud_msc_capacity_cb(uint8_t lun, uint32_t* block_count, uint16_t* block_size)
- {
- if (lun >= N_DRIVES) {
- *block_count = 0;
- *block_size = DISK_BLOCK_SIZE;
- } else {
- *block_count = Drives[lun].n_lba;
- *block_size = DISK_BLOCK_SIZE;
- }
- }
- // Invoked when received Start Stop Unit command
- // - Start = 0 : stopped power mode, if load_eject = 1 : unload disk storage
- // - Start = 1 : active mode, if load_eject = 1 : load disk storage
- bool tud_msc_start_stop_cb(uint8_t lun, uint8_t power_condition, bool start, bool load_eject)
- {
- const struct drive *drv;
- (void) power_condition;
- if (lun < N_DRIVES) {
- drv = &Drives[lun];
- if ( load_eject )
- {
- if (start)
- {
- drv_active[lun] = 1;
- }else
- {
- drv_active[lun] = 0;
- }
- }
- }
- return true;
- }
- // Callback invoked when received READ10 command.
- // Copy disk's data to buffer (up to bufsize) and return number of copied bytes.
- int32_t tud_msc_read10_cb(uint8_t lun, uint32_t lba, uint32_t offset, void* buffer, uint32_t bufsize)
- {
- const struct drive *drv;
- uint32_t sector, sec_off;
- if (lun >= N_DRIVES)
- return -1;
- drv = &Drives[lun];
- if ( lba >= drv->n_lba )
- return -1;
-
- if (lun == 0) {
- struct disk_lba *msc_ro = (struct disk_lba *)disk0_img;
- memcpy(buffer, msc_ro[lba].data + offset, bufsize);
- asm volatile("DMB");
- return bufsize;
- } else {
- if (fsm_get() < VAULT_MAIN_MENU) {
- memset(buffer, 0, bufsize);
- return bufsize;
- }
- if (lba == 0) {
- memcpy(buffer, disk1_mbr + offset, bufsize);
- return bufsize;
- }
- sector = lba / BLOCKS_PER_SECTOR;
- sec_off = lba - (sector * BLOCKS_PER_SECTOR);
-
- if ( sector != sector_cached) {
- sector_cache_load(sector);
- return 0;
- }
- memcpy(buffer, sector_cache[sec_off].data + offset, bufsize);
- asm volatile("DMB");
- return bufsize;
- }
- }
- bool tud_msc_is_writable_cb (uint8_t lun)
- {
- if (lun != 1) {
- /* Read only. */
- return false;
- } else {
- return true;
- }
- }
- // Callback invoked when received WRITE10 command.
- // Process data in buffer to disk's storage and return number of written bytes
- int32_t tud_msc_write10_cb(uint8_t lun, uint32_t lba, uint32_t offset, uint8_t* buffer, uint32_t bufsize)
- {
- uint32_t sector, sec_off;
- if (lun == 0)
- return bufsize;
- /*
- if (lba == 0)
- return bufsize;
- */
- if ( lba >= Drives[lun].n_lba)
- return -1;
- if (fsm_get() < VAULT_MAIN_MENU)
- return -1;
- sector = lba / BLOCKS_PER_SECTOR;
- sec_off = lba - (sector * BLOCKS_PER_SECTOR);
- if ( sector != sector_cached) {
- sector_cache_load(sector);
- }
- memcpy(sector_cache[sec_off].data + offset, buffer, bufsize);
- sector_cache_commit();
- asm volatile("DMB");
- return bufsize;
- }
- // Callback invoked when received an SCSI command not in built-in list below
- // - READ_CAPACITY10, READ_FORMAT_CAPACITY, INQUIRY, MODE_SENSE6, REQUEST_SENSE
- // - READ10 and WRITE10 has their own callbacks
- int32_t tud_msc_scsi_cb (uint8_t lun, uint8_t const scsi_cmd[16], void* buffer, uint16_t bufsize)
- {
- // read10 & write10 has their own callback and MUST not be handled here
- void const* response = NULL;
- int32_t resplen = 0;
- // most scsi handled is input
- bool in_xfer = true;
- switch (scsi_cmd[0])
- {
- case SCSI_CMD_PREVENT_ALLOW_MEDIUM_REMOVAL:
- // Host is about to read/write etc ... better not to disconnect disk
- resplen = 0;
- break;
- default:
- // Set Sense = Invalid Command Operation
- tud_msc_set_sense(lun, SCSI_SENSE_ILLEGAL_REQUEST, 0x20, 0x00);
- // negative means error -> tinyusb could stall and/or response with failed status
- resplen = -1;
- break;
- }
- // return resplen must not larger than bufsize
- if ( resplen > bufsize ) resplen = bufsize;
- if ( response && (resplen > 0) )
- {
- if(in_xfer)
- {
- memcpy(buffer, response, resplen);
- }else
- {
- // SCSI output
- }
- }
- return resplen;
- }
- void disk1_format(void)
- {
- uint8_t block[DISK_BLOCK_SIZE];
- int i, j;
- if (cryptoengine_check_vault() < 0)
- return;
- memset(block, 0, DISK_BLOCK_SIZE);
- for (i = 1; i < 5; i++) {
- if (sector_cached != i) {
- sector_cache_load(i);
- }
- for (j = 0; j < BLOCKS_PER_SECTOR; j++)
- memcpy(sector_cache[j].data, block, DISK_BLOCK_SIZE);
- sector_cache_commit();
- }
- /* Fill "last cluster" info */
- sector_cache_load(0);
- for (j = 0; j < BLOCKS_PER_SECTOR; j++)
- memcpy(sector_cache[j].data, block, DISK_BLOCK_SIZE);
- memcpy(sector_cache[0].data, disk1_mbr, DISK_BLOCK_SIZE);
- memcpy(sector_cache[1].data, last_cluster_init_info, 4);
- memcpy(sector_cache[2].data, last_cluster_init_info, 4);
- sector_cache_commit();
- }
- void disk_crypto_activate(int status)
- {
- drv_active[1] = status;
- if (status) {
- }
- }
- #endif
|