Checked with the sample codes.

[kozos-expbrd/kozos_expbrd.git] / firm / 07 / bootload / main.c

#include "defines.h"
#include "interrupt.h"
#include "serial.h"
#include "xmodem.h"
#include "elf.h"
#include "dram.h"
#include "lib.h"
#include "led.h"
#include "re.h"
#include "sw.h"
#include "lcd.h"
#include "pff.h"

static int init(void)
{
  /* °Ê²¼¤Ï¥ê¥ó¥«¡¦¥¹¥¯¥ê¥×¥È¤ÇÄêµÁ¤·¤Æ¤¢¤ë¥·¥ó¥Ü¥ë */
  extern int erodata, data_start, edata, bss_start, ebss;

  /*
   * ¥Ç¡¼¥¿Îΰè¤ÈBSSÎΰè¤ò½é´ü²½¤¹¤ë¡¥¤³¤Î½èÍý°Ê¹ß¤Ç¤Ê¤¤¤È¡¤
   * ¥°¥í¡¼¥Ð¥ëÊÑ¿ô¤¬½é´ü²½¤µ¤ì¤Æ¤¤¤Ê¤¤¤Î¤ÇÃí°Õ¡¥
   */
  memcpy(&data_start, &erodata, (long)&edata - (long)&data_start);
  memset(&bss_start, 0, (long)&ebss - (long)&bss_start);

  /* ¥½¥Õ¥È¥¦¥¨¥¢¡¦³ä¤ê¹þ¤ß¥Ù¥¯¥¿¤ò½é´ü²½¤¹¤ë */
  softvec_init();

  /* ¥·¥ê¥¢¥ë¤Î½é´ü²½ */
  serial_init(SERIAL_DEFAULT_DEVICE);

  /* DRAM¤Î½é´ü²½ */
  dram_init();

  /* LED¤Î½é´ü²½ */
  led_init();

  /* ¥í¡¼¥¿¥ê¡¼¥¨¥ó¥³¡¼¥À¡¼¤Î½é´ü²½ */
  re_init();

  /* ¥¹¥¤¥Ã¥Á¤Î½é´ü²½ */
  sw_init();

  /* LCD¤Î½é´ü²½ */
  lcd_init();

  return 0;
}

/* ¥á¥â¥ê¤Î16¿Ê¥À¥ó¥×½ÐÎÏ */
static int dump(char *buf, long size)
{
  long i;

  if (size < 0) {
    puts("no data.\n");
    return -1;
  }
  for (i = 0; i < size; i++) {
    putxval(buf[i], 2);
    if ((i & 0xf) == 15) {
      puts("\n");
    } else {
      if ((i & 0xf) == 7) puts(" ");
      puts(" ");
    }
  }
  puts("\n");

  return 0;
}

static void wait()
{
  volatile long i;
  for (i = 0; i < 300000; i++)
    ;
}

void die(int code)
{
  puts("die with code 0x");
  putxval(code, 4);
  puts(".\n");
  while (1) { }
}

int main(void)
{
  static char buf[16];
  static long size = -1;
  static unsigned char *loadbuf = NULL;
  char *entry_point;
  void (*f)(void);
  extern int buffer_start; /* ¥ê¥ó¥«¡¦¥¹¥¯¥ê¥×¥È¤ÇÄêµÁ¤µ¤ì¤Æ¤¤¤ë¥Ð¥Ã¥Õ¥¡ */

  INTR_DISABLE; /* ³ä¹þ¤ß̵¸ú¤Ë¤¹¤ë */

  init();

#if 0
  puts("kzload (kozos boot loader) started.\n");

  while (1) {
    puts("kzload> "); /* ¥×¥í¥ó¥×¥Èɽ¼¨ */
    gets(buf); /* ¥·¥ê¥¢¥ë¤«¤é¤Î¥³¥Þ¥ó¥É¼õ¿® */

    if (!strcmp(buf, "load")) { /* XMODEM¤Ç¤Î¥Õ¥¡¥¤¥ë¤Î¥À¥¦¥ó¥í¡¼¥É */
      loadbuf = (char *)(&buffer_start);
      size = xmodem_recv(loadbuf);
      wait(); /* žÁ÷¥¢¥×¥ê¤¬½ªÎ»¤·Ã¼Ëö¥¢¥×¥ê¤ËÀ©¸æ¤¬Ìá¤ë¤Þ¤ÇÂÔ¤Á¹ç¤ï¤»¤ë */
      if (size < 0) {
        puts("\nXMODEM receive error!\n");
      } else {
        puts("\nXMODEM receive succeeded.\n");
      }
    } else if (!strcmp(buf, "dump")) { /* ¥á¥â¥ê¤Î16¿Ê¥À¥ó¥×½ÐÎÏ */
      puts("size: ");
      putxval(size, 0);
      puts("\n");
      dump(loadbuf, size);
    } else if (!strcmp(buf, "run")) { /* ELF·Á¼°¥Õ¥¡¥¤¥ë¤Î¼Â¹Ô */
      entry_point = elf_load(loadbuf); /* ¥á¥â¥ê¾å¤ËŸ³«(¥í¡¼¥É) */
      if (!entry_point) {
        puts("run error!\n");
      } else {
        puts("starting from entry point: ");
        putxval((unsigned long)entry_point, 0);
        puts("\n");
        f = (void (*)(void))entry_point;
        f(); /* ¤³¤³¤Ç¡¤¥í¡¼¥É¤·¤¿¥×¥í¥°¥é¥à¤Ë½èÍý¤òÅϤ¹ */
        /* ¤³¤³¤Ë¤ÏÊ֤äƤ³¤Ê¤¤ */
      }
    } else if (!strcmp(buf, "ramchk")) {
      dram_check();
    } else if (!strcmp(buf, "ramchk2")) {
      dram_check2();
    } else if (!strcmp(buf, "ramclr")) {
      dram_clear();
    } else if (!strcmp(buf, "led1")) {
      led_toggle(Led1);
    } else if (!strcmp(buf, "led2")) {
      led_toggle(Led2);
    } else if (!strcmp(buf, "ledg")) {
      led_toggle(LedG);
    } else if (!strcmp(buf, "ledr")) {
      led_toggle(LedR);
    } else if (!strcmp(buf, "re")) {
      puts("value: ");
      putxval(re_read(), 0);
      puts("\n");
    } else if (!strcmp(buf, "sw")) {
      if (sw_read(Sw1)) {   puts("Sw1\n"); }
      if (sw_read(Sw2)) {   puts("Sw2\n"); }
      if (sw_read(SwRe)) {  puts("SwRe\n"); }
    } else if (!strcmp(buf, "lcd")) {
      uint8 reverse = 0;
      lcd_clear();
      lcd_draw_box(0, 0, 121, 31, reverse);
      lcd_draw_string(2, 2, "KOZOS", reverse);
    } else {
      puts("unknown.\n");
    }
  }
#else
  FATFS fatfs;                  /* File system object */
  DIR dir;                              /* Directory object */
  FILINFO fno;                  /* File information object */
  WORD bw, br, i;
  BYTE buff[64];
  int rc;

  puts("\nMount a volume.\n");
  rc = pf_mount(&fatfs);
  if (rc) die(rc);

  puts("\nOpen a test file (message.txt).\n");
  rc = pf_open("MESSAGE.TXT");
  if (rc) die(rc);

  puts("\nType the file content.\n");
  for (;;) {
      rc = pf_read(buff, sizeof(buff), &br);    /* Read a chunk of file */
      if (rc || !br) break;                     /* Error or end of file */
      for (i = 0; i < br; i++)          /* Type the data */
          putc(buff[i]);
  }
  if (rc) die(rc);

#if _USE_WRITE
  puts("\nOpen a file to write (write.txt).\n");
  rc = pf_open("WRITE.TXT");
  if (rc) die(rc);

  puts("\nWrite a text data. (Hello world!)\n");
  rc = pf_write("Hello world!\r\n", 14, &bw);
  if (rc) die(rc);

  puts("\nTerminate the file write process.\n");
  rc = pf_write(0, 0, &bw);
  if (rc) die(rc);
#endif

#if _USE_DIR
  puts("\nOpen root directory.\n");
  rc = pf_opendir(&dir, "");
  if (rc) die(rc);

  puts("\nDirectory listing...\n");
  for (;;) {
      rc = pf_readdir(&dir, &fno);      /* Read a directory item */
      if (rc || !fno.fname[0]) break;   /* Error or end of dir */
      if (fno.fattrib & AM_DIR) {
          puts("<d>");
          puts(fno.fname);
          puts("\n");
      } else {
          puts("<f>");
          puts(fno.fname);
          puts("\n");
      }
  }
  if (rc) die(rc);
#endif

  puts("\nTest completed.\n");
  for (;;) ;
#endif

  return 0;
}