OpenCores
URL https://opencores.org/ocsvn/c16/c16/trunk

Subversion Repositories c16

[/] [c16/] [trunk/] [loader.c] - Diff between revs 2 and 26

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 2 Rev 26
Line 1... Line 1...
 
// LOADER
 
//-----------------------------------------------------------------------------
 
int getchr()
 
{
 
   while (! (ASM(" IN   (IN_STATUS), RU") & 0x01))   /* wait */ ;
 
   ASM("IN   (IN_RX_DATA), RU");
 
}
 
//-----------------------------------------------------------------------------
 
void putchr(char c)
 
{
 
   while (ASM(" IN (IN_STATUS), RU") & 0x02)   /* wait */ ;
 
   ASM(" MOVE 2(SP), RU");
 
   ASM(" OUT  R, (OUT_TX_DATA)");
 
}
 
//-----------------------------------------------------------------------------
 
void print_string(const char * buffer)
 
{
 
    while (*buffer)   putchr(*buffer++);
 
}
 
//-----------------------------------------------------------------------------
 
unsigned char get_nibble()
 
{
 
unsigned char c  = getchr();
 
 
 
   if (c <  '0') return 0xFF;
 
   if (c <= '9') return  c - '0';
 
   if (c <  'A') return 0xFF;
 
   if (c <= 'F') return  c - 0x37;
 
   if (c <  'a') return 0xFF;
 
   if (c <= 'f') return  c - 0x57;
 
   return 0xFF;
 
}
 
//-----------------------------------------------------------------------------
 
int get_byte()
 
{
 
unsigned char hi = get_nibble();
 
unsigned char lo;
 
 
 
   if (hi != 0xFF)
 
      {
 
        lo = get_nibble();
 
        if (lo != 0xFF)   return (hi << 4) | lo;
 
      }
 
 
 
   print_string("\r\nERROR: not hex\r\n");
 
   ASM(" HALT");
 
}
 
//-----------------------------------------------------------------------------
 
int main(int argc, char * argv[])
 
{
 
unsigned char record_length;
 
unsigned int  address;
 
unsigned char record_type;
 
unsigned char check_sum;
 
unsigned char  i;
 
unsigned char c;
 
 
 
   for (;;)
 
       {
 
         print_string("\r\nLOAD > ");
 
         for (;;)
 
            {
 
              // wait for start of record...
 
              while ((c = getchr()) != ':')   ;
 
              check_sum = 0;
 
 
 
              c = get_byte();   check_sum += c;   record_length = c;
 
              c = get_byte();   check_sum += c;   address       = c << 8;
 
              c = get_byte();   check_sum += c;   address      |= c;
 
              c = get_byte();   check_sum += c;   record_type   = c;
 
 
 
              for (i = 0; i < record_length; i++)
 
                  {
 
                    c = get_byte();
 
                    ((char *)address)[i] = c;
 
                    check_sum += c;
 
                  }
 
 
 
              c = get_byte();   check_sum += c;
 
              if (check_sum)   break;
 
              putchr('.');
 
 
 
              if (record_type == 1)
 
                 {
 
                   print_string("\r\nDONE.\r\n");
 
                   ((void (*)())address)();
 
                 }
 
            }
 
 
 
         print_string("\r\nCHECKSUM ERROR.");
 
       }
 
}
 
//-----------------------------------------------------------------------------
 
 
 No newline at end of file
 No newline at end of file

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.