main.c

Go to the documentation of this file.

 
#include <user_config.h>
#include "hardware/i2c.h"
 
 
 
#ifndef _IOM1284P_H_
#error _IOM1284P_H_
#endif
 
#include "gpib/defines.h"
#include "gpib/gpib_hal.h"
#include "gpib/gpib.h"
#include "gpib/gpib_task.h"
#include "gpib/gpib_tests.h"
#include "gpib/printer.h"
#include "gpib/amigo.h"
#include "gpib/ss80.h"
#ifdef POSIX_TESTS
#include "posix/posix_tests.h"
#endif
 
#ifdef LIF_SUPPORT
#include "lif/lifutils.h"
#endif
 
#ifdef PORTIO_TESTS
#include "hardware/portio.h"
#endif
 
#include <math.h>
 
/* RunBoot define */
typedef void (*RESET_t)(void) __attribute__((noreturn));
 
#ifdef OPTIBOOT
//void (*RESET) (void) = (0x10000-0x400);
const RESET_t RESET = (RESET_t) (0x10000-0x400);
#else
const RESET_t RESET = (RESET_t) (0);
#endif
 
int8_t debug_input = 0;
 
void copyright()
{
    printf("HP85 Disk and Device Emulator with built in LIF utilities\n");
    printf(" (c) 2014-2020 by Mike Gore\n");
    printf(" GNU version 3\n");
    printf("-> https://github.com/magore/hp85disk\n");
    printf("   GIT last pushed:   %s\n", GIT_VERSION);
    printf("   Last updated file: %s\n", LOCAL_MOD);
    printf("\n");
}
 
 
 
 
#ifdef LCD_SUPPORT
 
 
uint8_t  _cmd1[2] = { 0xfe, 0x80 };
uint8_t _line1 [21] = { ' ' };
uint8_t  _cmd2[2] = { 0xfe, 0xC0 };
uint8_t _line2 [21] = { ' ' };
#endif  // LCD_SUPPORT
 
#ifdef LCD_SUPPORT
 
static int16_t lcd_display_time = 0;
 
void lcd_task()
{
    ++lcd_display_time;
}
 
MEMSPACE
char *lcd_time(tm_t *t, char *buf, int max)
{
// normaize tm_t before output
    (void) normalize(t,0);
    memset(buf,0,max);
    snprintf(buf,max-1,"%s %2d %02d:%02d:%02d",
        tm_mon_to_ascii(t->tm_mon),
        (int)t->tm_mday,
        (int)t->tm_hour,
        (int)t->tm_min,
        (int)t->tm_sec);
    return(buf);
}
 
 
uint8_t  _backlight[5] = { 0x7c, '+', 0x80, 0x80, 0x80 };   /* Backlight half bright */
uint8_t lcd_backlight(uint32_t rgb)
{
 
    _backlight[2] = 0xff & (rgb >> 16);
    _backlight[3] = 0xff & (rgb >> 8);
    _backlight[4] = 0xff & (rgb );
 
    if(! i2c_fn(0x72, TW_WRITE, _backlight, sizeof(_backlight)) )
    {
        i2c_display_task_errors();
        printf("I2C LCD is NOT attached!\n");
        return(0);
    }
    return(1);
}
 
void lcd_setup()
{
    int ind = 0;
    uint8_t sreg = SREG;
 
    printf("I2C LCD initialization start\n");
 
    if(set_timers(lcd_task,1) == -1)
        printf("lcd_task init failed\n");
 
    i2c_init(100000);
 
    i2c_task_init();
 
    cli();
 
    // Default startup message
    sprintf((char *) _line1, "%-16s", "HP85Disk V2");
    sprintf((char *) _line2, "%-16s", "(C)Mike Gore");
 
    i2c_task_op[ind++] = i2c_task_op_add(0x72, TW_WRITE, _cmd1, sizeof(_cmd1));
    i2c_task_op[ind++] = i2c_task_op_add(0x72, TW_WRITE, _line1, 16);
    i2c_task_op[ind++] = i2c_task_op_add(0x72, TW_WRITE, _cmd2, sizeof(_cmd2));
    i2c_task_op[ind++] = i2c_task_op_add(0x72, TW_WRITE, _line2, 16);
 
    SREG = sreg;
 
    i2c_task_run();
    // wait long enough for us to see the startup message
    delayms(1000);
    
    // Verify the task finished - it normally takes < 30mS
    if(!i2c_task_done())
    {
        i2c_display_task_errors();
        printf("I2C LCD is NOT attached!\n");
    }
 
    sep();
}
 
 
void i2c_lcd_task()
{
    char buf[32];
    uint8_t sreg=SREG;
    ts_t ts;
 
    cli();
    if(!mmc_ins_status())
    {
        sprintf((char *) _line2,"%-16s", "SD Card Fault");
    }
    else
    {
        clock_gettime(0, (ts_t *) &ts);
        sprintf((char *) _line2, "%-16s", lcd_time(gmtime(&(ts.tv_sec)),buf,sizeof(buf)-1) );
        // sprintf((char *) _line2,"%16ld.%03ld", (long) ts.tv_sec, (long) ts.tv_nsec / 1000000UL);
    }
    SREG=sreg;
 
    i2c_task_run();
}
 
 
#endif  // LCD_SUPPORT
 
#ifdef LCD_SUPPORT
void gpib_user_task()
{
    uint8_t sreg = SREG;
 
    cli();
    if(lcd_display_time > 100) // increments at 1000HZ
    {
        lcd_display_time = 0;
        SREG = sreg;
        i2c_lcd_task();
        return;
    }
    SREG = sreg;
}
#else // LCD_SUPPORT
void gpib_user_task()
{
}
 
#endif  // LCD_SUPPORT
 
 
void help()
{
 
    copyright();
 
    printf("help     - displays this help menu\n");
 
#ifdef LCD_SUPPORT
    printf("backlight 0xRRGGBB - format 0x[00-FF][00-FF][00-FF]\n");
#endif
    printf("dir       Directory list MSDOS format\n");
 
    drives_help(0);
 
#ifdef FATFS_TESTS
    fatfs_help(0);
#endif
    gpib_help(0);
 
#ifdef LIF_SUPPORT
    lif_help(0);
#endif
 
#ifdef POSIX_TESTS
    posix_help(0);
#endif
 
    printf(
        "reset   - reset emulator\n"
        "setdate - set date - prompts for date\n");
#ifdef TELEDISK
    td0_help(0);
#endif
 
    printf(
        "time    - display current date and time\n"
        "\n");
 
/* CPU debugging */
    printf(
#ifdef DELAY_TESTS
        "delay_tests\n"
#endif
        "input   - Toggle input parsing debugging\n"
        "mem     - Display free memory\n"
        );
#ifdef PORTIO_TESTS
    portio_help(0);
#endif
    printf("\n");
 
}
 
void user_task(uint8_t gpib)
{
    char *ptr;
    int ind;
    int i;
    int argc;
    int result = 0;
    int ret;
    char *argv[51];
    char line[256];
 
 
    if(gpib)
        gpib_task();
 
    if(!kbhit(0))
        return;
 
    printf("\n>");
 
    memset(line,0,sizeof(line)-1);
 
    fgets(line,sizeof(line)-2,stdin);
    trim_tail(line);
    argc = split_args(line,argv,50);
 
    if(debug_input)
    {
        printf("Argument count = %d\n", argc);
        for(i=0;i<argc;++i)
            printf("   [%s]\n", argv[i]);
    }
 
    ind = 0;
    result = 0;
    ptr = argv[ind++];
 
    if(!ptr || argc < 1)
    {
        result = 1;
    }
 
#ifdef LCD_SUPPORT
    else if (MATCHI(ptr,"backlight") )
    {
        uint32_t rgb;
        ptr = argv[ind];
        if(*ptr == '=')
            ++ind;
        rgb = get_value(argv[ind]);
        result = lcd_backlight(rgb);
    }
#endif
 
    else if ( MATCHI(ptr,"reset") )
    {
        cli();
        uart_rx_flush(0);
        cli();
        MCUSR = (1 << EXTRF);
        RESET();
        // should not return!
        result = 1;
    }
    else if ( MATCHI(ptr,"setdate" ) )
    {
        setdate();
        display_clock();
        result = 1;
    }
    else if ( MATCHI(ptr,"time") )
    {
        display_clock();
        result = 1;
    }
    else if ( MATCHI(ptr,"help") || MATCHI(ptr,"?") )
    {
        help();
        result = 1;
    }
 
    if (MATCHI(ptr,"dir") )
    {
        int i;
        int args = 0;
        result = 1;
        for(i=1;i<argc;++i)
        {
            if(fatfs_ls(argv[i]) == 0)
                result = -1;
            ++args;
        }
        if(!args)
        {
            if(fatfs_ls("") == 0)
                result = -1;
        }
    }
 
 
 
#ifdef POSIX_TESTS
    if( (ret = posix_tests(argc,argv)) )
    {
        if(ret < 0)
            result = -1;
        else
            result = 1;
    }
#endif
    if( (ret = drives_tests(argc,argv)) )
    {
        if(ret < 0)
            result = -1;
        else
            result = 1;
    }
 
#ifdef FATFS_TESTS
    if( (ret = fatfs_tests(argc,argv) ))
    {
        if(ret < 0)
            result = -1;
        else
            result = 1;
    }
#endif
    if( (ret = gpib_tests(argc,argv)) )
    {
        if(ret < 0)
            result = -1;
        else
            result = 1;
// Restore GPIB BUS states
        gpib_init_devices();
    }
 
#ifdef LIF_SUPPORT
    if( (ret = lif_tests(argc,argv)) )
    {
        if(ret < 0)
            result = -1;
        else
            result = 1;
    }
#endif
 
/* CPU related tests */
    if (MATCHI(ptr,"input") )
    {
        debug_input = !debug_input;
        printf("Input debugging: %s\n", debug_input ? "ON" : "OFF");
        result = 1;
    }
    else if ( MATCH(ptr,"mem") )
    {
        PrintFree();
        result = 1;
 
    }
#ifdef PORTIO_TESTS
    if( (ret = portio_tests(argc,argv)) )
    {
        if(ret < 0)
            result = -1;
        else
            result = 1;
    }
#endif
/* CPU related tests */
 
    if(result == 1)
        printf("OK\n");
    else if(result == -1)
        printf("Command FAILED\n");
    else
    {
        printf("Invalid Command\n");
        printf("    Argument count = %d\n", argc);
        for(i=0;i<argc;++i)
            printf("       [%s]\n", argv[i]);
    }
}
 
#ifdef LCD_SUPPORT
void update_drive_counts()
{
    char tmp[32];
 
    sprintf((char *) tmp, "SS80=%d AMIGO=%d",
        (int) count_drive_types(SS80_TYPE),
        (int) count_drive_types(AMIGO_TYPE) );
    sprintf((char *) _line1, "%-16s", tmp);
}
#endif
 
int main(void)
{
    ts_t ts;
    uint32_t actual,baud;
 
    clear_error();      // Clear error state
 
    GPIO_PIN_LOW(LED1); // Activity status
 
    gpib_bus_init();
 
// BAUD setting moved to Makefile
    baud = BAUD;
 
    actual = uart_init(0, baud);                  // Serial Port Initialize
 
    delayms(200);
 
    sep();
    printf("Start\n");
    printf("CPU Clock = %lu\n", F_CPU);
    printf("Requested Baud Rate: %ld, Actual: %ld\n", (long)baud, (long)actual);
 
    init_timers();
 
    sep();
    printf("HP85 Disk and Device Emulator\n");
    printf(" (C) 2014-2020 by Mike Gore\n");
    printf(" GNU version 3\n");
    printf("-> https://github.com/magore/hp85disk\n");
    printf("   GIT last pushed:   %s\n", GIT_VERSION);
    printf("   Last updated file: %s\n", LOCAL_MOD);
 
    sep();
    PrintFree();
 
    sep();
    // delayms(200);                                 ///@brief Power up delay
 
    printf("Initializing SPI bus\n");
    spi_init(MMC_SLOW,GPIO_B3);
 
    printf("Initializing I2C bus\n");
    i2c_init(100000);
    sep();
 
    printf("Initializing RTC\n");
    clock_clear();
    printf("Clock cleared\n");
    clock_getres(0, (ts_t *) &ts);
    printf("System Task Interrupt Rate: %ld Nano Seconds\n", (long) ts.tv_nsec);
 
// Timezone offset we just use local time
    initialize_clock(0);
    display_clock();
    sep();
 
#ifdef LCD_SUPPORT
    lcd_setup();
#endif
 
    printf("MMC initializing start\n");
    if ( !mmc_init(1) )
        printf("MMC initialized\n");
    sep();
 
    gpib_bus_init();
    printf("GPIB bus initialized\n");
 
    printer_init();
    printf("Printer initialized\n");
 
    printf("GPIB Timer Setup\n");
    gpib_timer_init();
    printf("GPIB Timer initialized\n");
 
    gpib_file_init();
    printf("GPIB File init done\n");
 
    gpib_state_init();
    printf("GPIB State init done\n");
    sep();
 
    display_Addresses(0);
    sep();
 
    printf("debuglevel   = %04xH\n",(int)debuglevel);
    sep();
 
    format_drives();
 
#ifdef LCD_SUPPORT
    update_drive_counts();
    sprintf((char *) _line2, "%-16s", "(C)Mike Gore");
 
    i2c_task_run();
    delayms(1000);
    if(!i2c_task.done || i2c_task.error )
    {
        i2c_display_task_errors();
        printf("I2C LCD is NOT attached!\n");
    }
#endif
 
    printf("Starting GPIB TASK\n");
 
#if 0
    // Test new printf S string type
    printf("memx printf:%S\n", PSTR("This is a program memory message" ) );
    printf("memx printf:%S\n", PSTR_X("This is a __memx program memory message") );
#endif
 
    while ( 1)
    {
        user_task(1);
    }
}