avr/main.c

   1 /*
   2  */
   3
   4
   5 #include "common.h"
   6
   7 #include <avr/interrupt.h>
   8 #include <stdlib.h>
   9 #include <stdio.h>
  10
  11 #include "config.h"
  12 #include "debug.h"
  13 #include "z80-if.h"
  14 #include "i2c.h"
  15 #include "con-utils.h"
  16 #include "serial.h"
  17 #include "timer.h"
  18 #include "cli.h"
  19 #include "env.h"
  20 #include "z180-serv.h"
  21 #include "spi.h"
  22 #include "gpio.h"
  23 #include "time.h"
  24 #include "rtc.h"
  25
  26 static uint8_t mcusr;
  27
  28 /*--------------------------------------------------------------------------*/
  29 #if DEBUG
  30
  31 __attribute__ ((naked)) __attribute__ ((section (".init3")))
  32 void preset_ram (void)
  33 {
  34         for (uint8_t *p = RAMSTART; p <= (uint8_t *) RAMEND; p++)
  35                 *p = 0xdd;
  36
  37 }
  38
  39 static const FLASH char * const FLASH rreasons[] = {
  40                         FSTR("Power on"),
  41                         FSTR("External"),
  42                         FSTR("Brown out"),
  43                         FSTR("Watchdog"),
  44                         FSTR("JTAG"),
  45                 };
  46
  47 static
  48 void print_reset_reason(void)
  49 {
  50         uint8_t r = mcusr & 0x1f;
  51         const FLASH char * const FLASH *p = rreasons;
  52
  53         printf_P(PSTR("### Reset reason(s): %s"), r ? "" : "none");
  54         for ( ; r; p++, r >>= 1) {
  55                 if (r & 1) {
  56                         my_puts_P(*p);
  57                         if (r & ~1)
  58                                 printf_P(PSTR(", "));
  59                 }
  60         }
  61         printf_P(PSTR(".\n"));
  62 }
  63
  64 #endif
  65
  66 ISR(INT5_vect)
  67 {
  68         Stat |= S_MSG_PENDING;
  69 }
  70
  71 ISR(INT6_vect)
  72 {
  73         Stat |= S_CON_PENDING;
  74 }
  75
  76 static
  77 void setup_avr(void)
  78 {
  79         /* save and clear reset reason(s) */
  80         /* TODO: move to init section? */
  81         mcusr = MCUSR;
  82         MCUSR = 0;
  83
  84         /* WD */
  85
  86         /* CPU */
  87
  88         /* Disable JTAG Interface regardless of the JTAGEN fuse setting. */
  89         MCUCR = _BV(JTD);
  90         MCUCR = _BV(JTD);
  91
  92         /* Disable peripherals. Enable individually in respective init function. */
  93         PRR0 = _BV(PRTWI) |
  94                 _BV(PRTIM2) | _BV(PRTIM0) | _BV(PRTIM1) |
  95                 _BV(PRSPI) | _BV(PRUSART0) | _BV(PRADC);
  96
  97         PRR1 = _BV(PRTIM5) | _BV(PRTIM4) | _BV(PRTIM3) |
  98                 _BV(PRUSART3) | _BV(PRUSART2) | _BV(PRUSART1);
  99
 100
 101         /* disable analog comparator */
 102         ACSR = _BV(ACD);
 103         /* Ports */
 104
 105         /* Clock */
 106         CLKPR = _BV(CLKPCE);
 107         CLKPR = 0;
 108
 109         /* Timer */
 110         PRR1 &= ~_BV(PRTIM3);
 111         OCR3A = F_CPU / 1000 - 1;       /* Timer3: 1000Hz interval (OC3A) */
 112         TCCR3B = (0b01<<WGM32)|(0b001<<CS30); /* CTC Mode, Prescaler 1 */
 113         TIMSK3 = _BV(OCIE3A);           /* Enable TC2.oca interrupt */
 114
 115         /* SPI as master */
 116         PRR0 &= ~_BV(PRSPI);
 117         SPI_DDR = (SPI_DDR & ~_BV(SPI_MISO))
 118                         | _BV(SPI_MOSI) | _BV(SPI_SCK) | _BV(SPI_SS);
 119         SPI_PORT = (SPI_PORT & ~(_BV(SPI_MOSI) | _BV(SPI_SCK)))
 120                         | _BV(SPI_SS);
 121
 122         /* INT5, INT6: falling edge */
 123         EICRB = (EICRB & ~((0b11 << ISC50) | (0b11 << ISC60))) |
 124                 (0b10 << ISC50) | (0b10 << ISC60);
 125         /* Reset pending ints */
 126         EIFR |= _BV(INTF5) | _BV(INTF6);
 127         /* Enable INT5, and INT6 */
 128         EIMSK |= _BV(INT5) | _BV(INT6);
 129 }
 130
 131 static
 132 int reset_reason_is_power_on(void)
 133 {
 134         return (mcusr & _BV(PORF)) != 0;
 135 }
 136
 137 static
 138 void setup_system_time(void)
 139 {
 140         struct tm rtc_time;
 141
 142         rtc_get(&rtc_time);
 143         rtc_time.tm_isdst = 0;
 144         set_system_time(mk_gmtime(&rtc_time) );
 145 }
 146
 147 /*--------------------------------------------------------------------------*/
 148
 149 /* Stored value of bootdelay, used by autoboot_command() */
 150 static int  stored_bootdelay;
 151
 152
 153 /***************************************************************************
 154  * Watch for 'delay' seconds for autoboot stop.
 155  * returns: 0 - no key, allow autoboot
 156  *          1 - got key, abort
 157  */
 158
 159 static int abortboot(int  bootdelay)
 160 {
 161         int abort = 0;
 162         uint32_t ts;
 163
 164         if (bootdelay >= 0)
 165                 printf_P(PSTR("Hit any key to stop autoboot: %2d "), bootdelay);
 166
 167 #if defined CONFIG_ZERO_BOOTDELAY_CHECK
 168         /*
 169          * Check if key already pressed
 170          * Don't check if bootdelay < 0
 171          */
 172         if (bootdelay >= 0) {
 173                 if (tstc()) {   /* we got a key press   */
 174                         (void) my_getchar(1);  /* consume input */
 175                         my_puts_P(PSTR("\b\b\b 0"));
 176                         abort = 1;      /* don't auto boot      */
 177                 }
 178         }
 179 #endif
 180
 181         while ((bootdelay > 0) && (!abort)) {
 182                 --bootdelay;
 183                 /* delay 1000 ms */
 184                 ts = get_timer(0);
 185                 do {
 186                         if (tstc()) {   /* we got a key press   */
 187                                 abort  = 1;     /* don't auto boot      */
 188                                 bootdelay = 0;  /* no more delay        */
 189                                 break;
 190                         }
 191                         udelay(10000);
 192                 } while (!abort && get_timer(ts) < 1000);
 193
 194                 printf_P(PSTR("\b\b\b%2d "), bootdelay);
 195         }
 196
 197         putchar('\n');
 198
 199         return abort;
 200 }
 201
 202 static
 203 const char *bootdelay_process(void)
 204 {
 205         char *s;
 206         int bootdelay;
 207
 208         bootdelay = (int) getenv_ulong(PSTR(ENV_BOOTDELAY), 10, CONFIG_BOOTDELAY);
 209
 210
 211         debug("### main_loop entered: bootdelay=%d\n\n", bootdelay);
 212         _delay_ms(20);
 213
 214         s = getenv(PSTR(ENV_BOOTCMD));
 215         stored_bootdelay = bootdelay;
 216         return s;
 217 }
 218
 219 static
 220 void autoboot_command(const char *s)
 221 {
 222         debug("### main_loop: bootcmd=\"%s\"\n", s ? s : PSTR("<UNDEFINED>"));
 223         _delay_ms(20);
 224
 225         if (stored_bootdelay != -1 && s && !abortboot(stored_bootdelay)) {
 226                 run_command_list(s, -1);
 227         }
 228 }
 229
 230
 231 static
 232 void main_loop(void)
 233 {
 234         const char *s;
 235
 236         s = bootdelay_process();
 237         autoboot_command(s);
 238         cli_loop();
 239 }
 240
 241 int main(void)
 242 {
 243         setup_avr();
 244         z80_setup_bus();
 245         for (int i = 0; i < GPIO_MAX; i++)
 246                 gpio_config(i, INPUT_PULLUP);
 247         env_init();
 248
 249         if (reset_reason_is_power_on())
 250                 _delay_ms(CONFIG_PWRON_DELAY);
 251
 252         serial_setup(getenv_ulong(PSTR(ENV_BAUDRATE), 10, CONFIG_BAUDRATE));
 253         sei();
 254
 255 #if DEBUG
 256         debug("\n=========================<  (RE)START DEBUG  >=========================\n");
 257         print_reset_reason();
 258 #endif
 259
 260 #if DEBUG
 261         unsigned long i_speed = getenv_ulong(PSTR("i2c_clock"), 10, CONFIG_SYS_I2C_CLOCK);
 262         debug("### Setting I2C clock Frequency to %lu Hz.\n", i_speed);
 263         i2c_init(i_speed);
 264 #else
 265         i2c_init(CONFIG_SYS_I2C_CLOCK);
 266 #endif
 267         setup_system_time();
 268
 269         printf_P(PSTR("\nATMEGA1281+Z8S180 Stamp Monitor\n\n"));
 270
 271         setup_z180_serv();
 272
 273         main_loop();
 274 }