URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [bootloaders/] [orpmon/] [services/] [modem.c] - Rev 594
Go to most recent revision | Compare with Previous | Blame | View Log
#include "common.h" #include "support.h" #include "net.h" #include "uart.h" #include "spr-defs.h" #include "flash.h" #define SOH 0x01 #define STX 0x02 #define EOT 0x04 #define ACK 0x06 #define NAK 0x15 #define CAN 0x18 #define C 0x43 #define CPMEOF 0x1A #define RETRY 10 #define TIMEOUT 3 /* update CRC */ unsigned short updcrc(register int c, register unsigned int crc) { register int count; for (count = 8; --count >= 0;) { if (crc & 0x8000) { crc <<= 1; crc += (((c <<= 1) & 0400) != 0); crc ^= 0x1021; } else { crc <<= 1; crc += (((c <<= 1) & 0400) != 0); } } return crc; } static thand_f *mTimeHandler; static unsigned long mTimeValue; static int mTimeoutCount; static unsigned long src_addr; unsigned int length; unsigned int modemMode = 0, bLen = 128; unsigned short mycrc; unsigned long bno = 0; static void mStartTimeout(void); void mSetTimeout(int iv, thand_f * f) { if (iv == 0) mTimeHandler = (thand_f *) 0; else { mTimeHandler = f; mTimeValue = get_timer(0) + iv; } } static void mStartTimeout(void) { if (++mTimeoutCount >= RETRY) { printf("...retry counter exceeded, quitting...\n"); return; } else { printf("."); mSetTimeout(TIMEOUT * TICKS_PER_SEC, mStartTimeout); uart_putc(C); } } static void mReceiveTimeout(void) { if (++mTimeoutCount >= RETRY) { uart_putc(NAK); printf("..."); return; } else { mSetTimeout(TIMEOUT * TICKS_PER_SEC, mReceiveTimeout); uart_putc(NAK); } } int getBlock(unsigned char t) { unsigned int i = 0, j = 0; unsigned char mybuf[133]; unsigned char bNo, nBno; unsigned long dst_addr; unsigned char flags; flags = UART_LSR_FE | UART_LSR_PE | UART_LSR_OE | UART_LSR_BI; /*frame,parity,overrun errors */ mycrc = 0; switch (t) { case SOH: for (i = 0; i < 132; i++) { if ((REG8(UART_BASE + UART_LSR) & flags) == flags) { uart_putc(CAN); } mybuf[i] = uart_getc(); } bNo = mybuf[0]; /* packet id */ nBno = mybuf[1]; /* neg. packet id */ if ((bNo == 0x00) && (nBno == 0xff) && (bno == 0)) { /* start block */ modemMode = 2; /* ymodem */ uart_putc(ACK); uart_putc(C); return 1; } else if ((0xff - bNo) == nBno) { /* data block */ for (i = 2, j = 0; i < 130; i++, j++) { length++; mycrc = updcrc(mybuf[i], mycrc); dst_addr = src_addr + (bno * 0x8000) + ((bNo - 1) * 0x80) + j; REG8(dst_addr) = mybuf[i]; } mycrc = updcrc(mybuf[130], mycrc); mycrc = updcrc(mybuf[131], mycrc); if (mycrc == 0) { /* CRC match! */ uart_putc(ACK); for (i = 0; i < 128; i += 4) { /* for(j=0; j<4; j++) { tmp = tmp << 8; tmp |= mybuf[i+j+2]; } dst_addr = src_addr+(bno*0x8000)+((bNo-1)*128)+i; fl_word_program(dst_addr, tmp); */ } if (bNo == 0xff) bno++; return 1; } else { uart_putc(NAK); return -1; } } else { /* packet id didn't match neg packet id! */ uart_putc(NAK); return -1; } return 1; break; case EOT: if (modemMode == 2) { /* ymodem */ uart_putc(NAK); if (uart_getc() == EOT) { uart_putc(ACK); uart_putc(C); } else uart_putc(ACK); } else /* zmodem */ uart_putc(ACK); return 0; break; default: /* Unknown header */ uart_putc(NAK); return -1; } } int mGetData(unsigned long saddr) { int retval = 1; unsigned char c; length = 0; src_addr = saddr; modemMode = 1; bno = 0; printf("src_addr: 0x%lx\n", src_addr); if (fl_init() != 0) { printf("Flash init failed!\n"); return (-1); } #if 0 printf("Unlocking flash..."); for (i = 0, c = FLASH_BASE_ADDR; i < (FLASH_SIZE / FLASH_BLOCK_SIZE); i++, c += FLASH_BLOCK_SIZE) if (fl_unlock_one_block(c)) return 1; printf("done\n"); printf("Erasing flash..."); for (i = 0, c = FLASH_BASE_ADDR; i < (FLASH_SIZE / FLASH_BLOCK_SIZE); i++, c += FLASH_BLOCK_SIZE) if (fl_block_erase(c)) return 1; printf("done\n"); #endif printf("Waiting..."); mTimeoutCount = 0; mSetTimeout(TIMEOUT * TICKS_PER_SEC, mStartTimeout); while (1) { if (mTimeHandler && (get_timer(0) > mTimeValue)) { thand_f *x; x = mTimeHandler; mTimeHandler = (thand_f *) 0; (*x) (); } c = uart_testc(); if (c != 0) break; } while (retval != 0) { retval = getBlock(c); if (retval != 0) c = uart_getc(); } if (modemMode == 2) { c = uart_getc(); retval = getBlock(c); /* last 'dummy' block for YModem */ printf("... protocol: YModem, "); } else printf("... protocol: ZModem, "); return length; }
Go to most recent revision | Compare with Previous | Blame | View Log