X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp.git/blobdiff_plain/7f552300815ccadd45ebb3e7f0ae72a3b2e0c4e5..e1deb7c3bc0500aabf5d099adb231f6d1d27f01d:/avr/cmd_sd.c diff --git a/avr/cmd_sd.c b/avr/cmd_sd.c index 55acf2f..b84c4be 100644 --- a/avr/cmd_sd.c +++ b/avr/cmd_sd.c @@ -1,249 +1,364 @@ +/* + * (C) Copyright 2014 Leo C. + * + * SPDX-License-Identifier: GPL-2.0+ + */ + #include "common.h" -#include +//#include +#include "command.h" #include "diskio.h" #include "ff.h" -#include "command.h" +#include "eval_arg.h" #include "print-utils.h" +#include "z80-if.h" -static const FLASH char * const FLASH rc_names[] = { - FSTR("OK"), - FSTR("DISK_ERR"), - FSTR("INT_ERR"), - FSTR("NOT_READY"), - FSTR("NO_FILE"), - FSTR("NO_PATH"), - FSTR("INVALID_NAME"), - FSTR("DENIED"), - FSTR("EXIST"), - FSTR("INVALID_OBJECT"), - FSTR("WRITE_PROTECTED"), - FSTR("INVALID_DRIVE"), - FSTR("NOT_ENABLED"), - FSTR("NO_FILE_SYSTEM"), - FSTR("MKFS_ABORTED"), - FSTR("TIMEOUT"), - FSTR("LOCKED"), - FSTR("NOT_ENOUGH_CORE"), - FSTR("TOO_MANY_OPEN_FILES") - }; - +/* + * status - Show socket status + * + */ static -void put_rc (FRESULT rc) +command_ret_t do_status(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[]) { -#if 0 - printf_P(PSTR("rc=%u FR_%S\n"), rc, rc_names[rc]); -#else - printf_P(PSTR("rc=%u FR_"), rc); - my_puts_P(rc_names[rc]); - printf_P(PSTR("\n")); - -#endif + DSTATUS res; + BYTE dev; -} + (void) cmdtp; (void) flag; -#define BUFF_SIZE 1024 -BYTE Buff[BUFF_SIZE]; /* Working buffer */ + if (argc < 2) + return CMD_RET_USAGE; -static DWORD last_sect; + dev = (BYTE) eval_arg(argv[1], NULL); + res = disk_status(dev); + printf_P(PSTR("Socket status: %02x\n"), res); + return CMD_RET_SUCCESS; +} /* - * dd [] - Dump sector + * init - Initialize disk * */ -command_ret_t do_dd(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[]) +static +command_ret_t do_init(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[]) { - FRESULT res; + DSTATUS res; BYTE dev; - unsigned long sec; (void) cmdtp; (void) flag; if (argc < 2) return CMD_RET_USAGE; - dev = (BYTE) strtoul(argv[1], 0, 10); - - if (argc > 2) - sec = strtoul(argv[2], 0, 10); - else - sec = last_sect; + dev = (BYTE) eval_arg(argv[1], NULL); - res = disk_read(dev, Buff, sec, 1); - - if (res) { - printf_P(PSTR("rc=%.2x\n"), res); + if (disk_status(dev) & STA_NODISK) { + printf_P(PSTR("No Disk\n")); return CMD_RET_FAILURE; } - last_sect = sec + 1; - printf_P(PSTR("Sector:%lu\n"), sec); - dump_ram((uint32_t) (size_t) Buff, 0, 0x200, NULL); + res = disk_initialize(dev); + printf_P(PSTR("rc=%.2x\n"), res); + + if (res & (STA_NODISK | STA_NOINIT)) + return CMD_RET_FAILURE; return CMD_RET_SUCCESS; } /* - * di - Initialize disk + * info - Show disk info * */ -command_ret_t do_di(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[]) +static +command_ret_t do_info(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[]) { - FRESULT res; + DSTATUS res; BYTE dev; + union { + unsigned char uca[64]; + unsigned long ul; + unsigned char uc; + } dat; + (void) cmdtp; (void) flag; if (argc < 2) return CMD_RET_USAGE; - dev = (BYTE) strtoul(argv[1], 0, 10); - res = disk_status(dev); - printf_P(PSTR("disk_status=%.2x\n"), res); + dev = (BYTE) eval_arg(argv[1], NULL); - if ((res & STA_NODISK) == 0) { - res = disk_initialize(dev); - } - printf_P(PSTR("rc=%.2x\n"), res); - if (res) { + res = disk_status(dev); + if (res & (STA_NODISK | STA_NOINIT)) { + printf_P(res & STA_NODISK ? + PSTR("No disk\n") : PSTR("Not initialized\n")); return CMD_RET_FAILURE; } + if (disk_ioctl(dev, GET_SECTOR_COUNT, &dat.ul) == RES_OK) + printf_P(PSTR("Drive size: %lu sectors\n"), dat.ul); + if (disk_ioctl(dev, GET_BLOCK_SIZE, &dat.ul) == RES_OK) + printf_P(PSTR("Erase block: %lu sectors\n"), dat.ul); + if (disk_ioctl(dev, MMC_GET_TYPE, &dat.uc) == RES_OK) + printf_P(PSTR("Card type: %u\n"), dat.uc); + if (disk_ioctl(dev, MMC_GET_CSD, dat.uca) == RES_OK) + dump_ram(dat.uca, 0, 16, "CSD:"); + if (disk_ioctl(dev, MMC_GET_CID, dat.uca) == RES_OK) + dump_ram(dat.uca, 0, 16, "CID:"); + if (disk_ioctl(dev, MMC_GET_OCR, dat.uca) == RES_OK) + dump_ram(dat.uca, 0, 4, "OCR:"); + if (disk_ioctl(dev, MMC_GET_SDSTAT, dat.uca) == RES_OK) + dump_ram(dat.uca, 0, 64, "SD Status:"); + return CMD_RET_SUCCESS; } + /* - * ds - Show disk status + * dump [ [count]] - Dump sector * */ -command_ret_t do_ds(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[]) +static +command_ret_t do_dump(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[]) { - BYTE dev; + static BYTE dev_last; + static DWORD sec_last; + BYTE buffer[_MAX_SS]; + char header[20]; - union { - unsigned long lval; - unsigned char cval; - } dat; + DRESULT res; + BYTE dev; + DWORD sec; + UINT count; (void) cmdtp; (void) flag; if (argc < 2) return CMD_RET_USAGE; - dev = (BYTE) strtoul(argv[1], 0, 10); + dev = (BYTE) eval_arg(argv[1], NULL); + if (dev != dev_last) + sec_last = 0; + sec = sec_last; + count = 1; + + if ((flag & CMD_FLAG_REPEAT) == 0) { + /* If another parameter, it is the sector to dump. */ + if (argc > 2) + sec = eval_arg(argv[2], NULL); + if (argc > 3) + count = (UINT) eval_arg(argv[3], NULL); + } + for ( ; count; count--, sec++) { + res = disk_read(dev, buffer, sec, 1); - if (disk_ioctl(dev, GET_SECTOR_COUNT, &dat.lval) == RES_OK) - printf_P(PSTR("Drive size: %lu sectors\n"), dat.lval); + if (res) { + printf_P(PSTR("rc=%.2x\n"), res); + return CMD_RET_FAILURE; + } - if (disk_ioctl(dev, GET_BLOCK_SIZE, &dat.lval) == RES_OK) - printf_P(PSTR("Erase block: %lu sectors\n"), dat.lval); + sprintf_P(header, PSTR("Sector: %lu"), sec); + dump_ram(buffer, 0, _MAX_SS, header); + } + dev_last = dev; + sec_last = sec; - if (disk_ioctl(dev, MMC_GET_TYPE, &dat.cval) == RES_OK) - printf_P(PSTR("Card type: %u\n"), dat.cval); + return CMD_RET_SUCCESS; +} - if (disk_ioctl(dev, MMC_GET_CSD, Buff) == RES_OK) - dump_ram((uint32_t) (size_t) Buff, 0, 16, "CSD:"); +/* + * read drive sector count memaddr - Read disk into memory + * + */ +static +command_ret_t do_read(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[]) +{ + DRESULT res; + BYTE dev; + DWORD sec; + uint32_t addr; + int count, nr; + BYTE buffer[_MAX_SS]; - if (disk_ioctl(dev, MMC_GET_CID, Buff) == RES_OK) - dump_ram((uint32_t) (size_t) Buff, 0, 16, "CID:"); + static DWORD sec_last; + static uint32_t addr_last; - if (disk_ioctl(dev, MMC_GET_OCR, Buff) == RES_OK) - dump_ram((uint32_t) (size_t) Buff, 0, 4, "OCR:"); + (void) cmdtp; - if (disk_ioctl(dev, MMC_GET_SDSTAT, Buff) == RES_OK) - dump_ram((uint32_t) (size_t) Buff, 0, 64, "SD Status:"); + if (argc < 2) + return CMD_RET_USAGE; - if (disk_ioctl(dev, ATA_GET_MODEL, Buff) == RES_OK) { - Buff[40] = '\0'; - printf_P(PSTR("Model: %s\n"), Buff); + dev = (BYTE) eval_arg(argv[1], NULL); + sec = sec_last; + count = 1; + addr = addr_last; + + if ((flag & CMD_FLAG_REPEAT) == 0) { + /* If another parameter, it is the sector to dump. */ + if (argc > 2) + sec = eval_arg(argv[2], NULL); + if (argc > 3) + count = eval_arg(argv[3], NULL); + if (argc > 4) + addr = eval_arg(argv[4], NULL); } - if (disk_ioctl(dev, ATA_GET_SN, Buff) == RES_OK) { - Buff[20] = '\0'; printf_P(PSTR("S/N: %s\n"), Buff); + + for (nr = 0; nr < count;) { + nr++; + if ((res = disk_read(dev, buffer, sec, 1)) == RES_OK) { + if (!(z80_bus_cmd(Request) & ZST_ACQUIRED)) { + my_puts_P(PSTR("Bus timeout\n")); + return CMD_RET_FAILURE; + } + z80_write_block(buffer, addr /*+ base*/, _MAX_SS); + z80_bus_cmd(Release); + sec++; addr += _MAX_SS; + } else + break; } - return CMD_RET_SUCCESS; -} + printf_P(PSTR("Read %d sector(s), rc=%.2x.\n"), nr, res); + if (res) + printf_P(PSTR("Last sector not written!\n")); + + sec_last = sec; + addr_last = addr; + return res ? CMD_RET_FAILURE : CMD_RET_SUCCESS; +} /* - * Disk ioctl - * dcs - CTRL_SYNC + * write [] - Write memory to disk * */ -command_ret_t do_dcs(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[]) +static +command_ret_t do_write(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[]) { + DRESULT res; BYTE dev; + DWORD sec; + uint32_t addr; + int count, nr; + BYTE buffer[_MAX_SS]; - (void) cmdtp; (void) flag; + static DWORD sec_last; + static uint32_t addr_last; + + (void) cmdtp; if (argc < 2) return CMD_RET_USAGE; - dev = (BYTE) strtoul(argv[1], 0, 10); - printf_P(PSTR("rc=%.2x\n"), disk_ioctl(dev, CTRL_SYNC, 0)); + dev = (BYTE) eval_arg(argv[1], NULL); + sec = sec_last; + addr = addr_last; + count = 1; + + if ((flag & CMD_FLAG_REPEAT) == 0) { + /* If another parameter, it is the sector to dump. */ + if (argc > 2) + sec = eval_arg(argv[2], NULL); + if (argc > 3) + count = eval_arg(argv[3], NULL); + if (argc > 4) + addr = eval_arg(argv[4], NULL); + } - return CMD_RET_SUCCESS; + for (nr = 0; nr < count;) { + nr++; + if (!(z80_bus_cmd(Request) & ZST_ACQUIRED)) { + my_puts_P(PSTR("Bus timeout\n")); + return CMD_RET_FAILURE; + } + z80_read_block(buffer, addr /*+ base*/, _MAX_SS); + z80_bus_cmd(Release); + + res = disk_write(dev, buffer, sec, 1); + if (res != RES_OK) + break; + sec++; addr += _MAX_SS; + } + + printf_P(PSTR("%d sector(s) written, rc=%.2x.\n"), nr, res); + + sec_last = sec; + addr_last = addr; + + return res ? CMD_RET_FAILURE : CMD_RET_SUCCESS; } -command_ret_t do_test(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[]) +/* + * Disk ioctl + * sync - CTRL_SYNC + * + */ +static +command_ret_t do_ioctl_sync(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[]) { - (void) cmdtp; (void) flag; - (void) argc; (void) argv; + BYTE dev; - printf_P(_USE_LFN ? PSTR("LFN Enabled") : PSTR("LFN Disabled")); - printf_P(PSTR(", Code page: %u\n"), _CODE_PAGE); + (void) cmdtp; (void) flag; - for (FRESULT i=0; i<19; i++) - put_rc(i); + if (argc < 2) + return CMD_RET_USAGE; + dev = (BYTE) eval_arg(argv[1], NULL); + printf_P(PSTR("rc=%.2x\n"), disk_ioctl(dev, CTRL_SYNC, 0)); return CMD_RET_SUCCESS; } -extern command_ret_t do_echo(cmd_tbl_t *, int, int, char * const []); - static command_ret_t do_help(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[]); cmd_tbl_t cmd_sd_sub[] = { CMD_TBL_ITEM( - dd, CONFIG_SYS_MAXARGS, 1, do_dd, - "Dump sector", - "" + status, 2, 1, do_status, + "Socket staus", + "drive" ), CMD_TBL_ITEM( - di, 2, 1, do_di, + init, 2, 1, do_init, "Initialize disk", - "" + "drive" ), CMD_TBL_ITEM( - ds, 2, 1, do_ds, - "Disk status", - "" + info, 2, 1, do_info, + "Disk info", + "drive" ), CMD_TBL_ITEM( - dcs, 2, 1, do_dcs, - "Device control: SYNC", - "" + dump, CONFIG_SYS_MAXARGS, 1, do_dump, + "Dump sector(s)", + "drive [sector [count ]]" ), CMD_TBL_ITEM( - echo, CONFIG_SYS_MAXARGS, 1, do_echo, - "sane as echo (simple test)", "" + read, 2, 1, do_read, + "Read disk sector(s) into meomory", + "drive [sector [count [memaddr]]]" ), CMD_TBL_ITEM( - test, CONFIG_SYS_MAXARGS, 1, do_test, - "print some compiled in parameters", "" + write, 2, 1, do_write, + "Write sector(s) from meomory to disk", + "drive [sector [count [memaddr]]]" ), +CMD_TBL_ITEM( + sync, 2, 1, do_ioctl_sync, + "Device control: SYNC", + "drive" +), + CMD_TBL_ITEM( help, CONFIG_SYS_MAXARGS, 1, do_help, - "print sub command description/usage", + "Print sub command description/usage", "\n" " - print brief description of all sub commands\n" "sd help command ...\n" @@ -252,7 +367,7 @@ CMD_TBL_ITEM( /* This does not use the CMD_TBL_ITEM macro as ? can't be used in symbol names */ {FSTR("?"), CONFIG_SYS_MAXARGS, 1, do_help, - FSTR("alias for 'help'"), + FSTR("Alias for 'help'"), #ifdef CONFIG_SYS_LONGHELP FSTR(""), #endif /* CONFIG_SYS_LONGHELP */