#include <avr/io.h>
//#include <avr/power.h>
//#include <avr/pgmspace.h>
-
//#include <avr/interrupt.h>
+#include <avr/interrupt.h>
//#include <util/atomic.h>
//#include <avr/sleep.h>
//#include <string.h>
volatile int_fast8_t timeout_1s;
-volatile uint_least8_t Stat;
+//volatile uint_least8_t Stat;
+#define Stat GPIOR0
+unsigned int to_counter;
/****************************************************************/
-void z80_setaddress(uint32_t addr)
-{
- addr_t x;
-
- x.l = addr;
- P_ADL = x.b[0];
- P_ADH = x.b[1];
- PIN_ADB = ((x.b[2] << ADB_SHIFT) ^ P_ADB) & MASK(ADB_WIDTH) << ADB_SHIFT ;
-
-}
-
-/****************************************************************/
-
/*--------------------------------------------------------------------------*/
+/*---------------------------------------------------------*/
+/* 1000Hz timer interrupt generated by OC1A */
+/*---------------------------------------------------------*/
-void sys_tick_handler(void)
+ISR(TIMER1_COMPA_vect)
{
- static int_fast8_t tick_10ms = 0;
- static int_fast16_t count_ms = 0;
+ static int_fast8_t tick_10ms;
+// static int_fast16_t count_ms;
int_fast8_t i;
- ++tick_10ms;
- if (tick_10ms == 10)
- {
- Stat |= S_10MS_TO;
- tick_10ms = 0;
-
+ i = tick_10ms + 1;
+ if (i == 10) {
+ i = 0;
+ Stat |= S_10MS_TO;
/* Drive timer procedure of low level disk I/O module */
//disk_timerproc();
}
+ tick_10ms = i;
+#if 0
count_ms++;
if (count_ms == 1000) {
count_ms = 0;
if (i)
timeout_1s = i - 1;
}
+#endif
}
uint8_t rval;
int_fast8_t errors = 0;
- DBG_P(1, "SRAM: Check %#.5x byte... ", length);
+ DBG_P(1, "SRAM: Check 0x%.5lx byte... ", length);
while (length--) {
if ((rval = z80_read(addr)) != wval) {
if (errors == 0) {
- printf("\nSRAM: Address W R\n" \
- " -------------\n");
-// 12345 00 11
+ DBG_P(1, "\nSRAM: Address W R\n" \
+ " ------------------\n");
}
- printf(" %.5lx %.2x %.2x\n", addr, wval, rval);
-
- if (++errors > 16 )
+ errors++;
+ if (errors > 20) {
+ DBG_P(1, " ...\n");
break;
+ }
+ DBG_P(1, " 0x%.5lx 0x%.2x 0x%.2x\n", addr, wval, rval);
}
addr++;
wval += inc;
return addr;
}
-#if 0
-static void z80_sram_fill(uint32_t addr, int length, uint8_t startval, int inc)
+static void z80_sram_fill(uint32_t addr, uint32_t length, uint8_t startval, int inc)
{
- printf("SRAM: Write %#.5x byte... ", length); //fflush(stdout);
+ printf("SRAM: Write 0x%.5lx byte... ", length);
while (length--) {
z80_write(addr, startval);
++addr;
}
+#if 0
void z80_sram_fill_string(uint32_t addr, int length, const char *text)
{
char c;
static void do_10ms(void)
{
+ if (to_counter)
+ to_counter--;
}
/*--------------------------------------------------------------------------*/
}
+/*--------------------------------------------------------------------------*/
+
+void dump_mem(const __flash uint8_t *addr, uint32_t len)
+{
+ DBG_P(1, "hdrom dump:");
+ while (len) {
+ DBG_P(1, "\n %.5x:", addr);
+ for (unsigned i = 0; i<16; i++)
+ DBG_P(1, " %.2x", *addr++);
+ len -= len > 16 ? 16 : len;
+ }
+ DBG_P(1, "\n");
+}
+
+/*--------------------------------------------------------------------------*/
+
void z80_load_mem(void)
{
unsigned sec = 0;
hdrom_address[sec]+hdrom_length_of_sections[sec] - 1,
hdrom_length_of_sections[sec]);
- z80_write_block((unsigned char *) &hdrom[sec_base], /* src */
+ z80_write_block((const __flash unsigned char *) &hdrom[sec_base], /* src */
hdrom_address[sec], /* dest */
hdrom_length_of_sections[sec]); /* len */
sec_base+=hdrom_length_of_sections[sec];
sec++;
}
}
+
+/*--------------------------------------------------------------------------*/
+
+void z80_dump_mem(uint32_t addr, uint32_t len)
+{
+ DBG_P(1, "Memory dump:");
+ while (len) {
+ DBG_P(1, "\n %.5lx:", addr);
+ for (unsigned i = 0; i<16; i++)
+ DBG_P(1, " %.2x", z80_read(addr++));
+ len -= len > 16 ? 16 : len;
+ }
+ DBG_P(1, "\n");
+}
+
/*--------------------------------------------------------------------------*/
+void setup_rtc(void)
+{
+ /* TODO: */
+}
+
+void setup_avr(void)
+{
+ /* WD */
+
+ /* CPU */
+
+ /* Disable JTAG Interface regardless of the JTAGEN fuse setting. */
+ MCUCR = _BV(JTD);
+ MCUCR = _BV(JTD);
+
+ /* disable unused periphels */
+ PRR0 = _BV(PRTIM2) | _BV(PRTIM0) | _BV(PRADC);
+ PRR1 = _BV(PRTIM5) | _BV(PRTIM4) | _BV(PRTIM3) |
+ _BV(PRUSART3) | _BV(PRUSART2) | _BV(PRUSART1);
+
+ /* disable analog comparator */
+ ACSR = _BV(ACD);
+ /* Ports */
+
+ /* Clock */
+ CLKPR = _BV(CLKPCE);
+ CLKPR = 0;
+
+ /* Timer */
+
+ OCR1A = F_CPU / 8 / 1000 - 1; // Timer1: 1000Hz interval (OC1A)
+ TCCR1B = 0b00001010;
+ TIMSK1 = _BV(OCIE1A); // Enable TC1.oca interrupt
+}
+
+const __flash uint8_t iniprog[] = {
+ 0xAF, // xor a
+ 0xED, 0x39, 0x36, // out0 (rcr),a ;disable DRAM refresh
+ 0x3E, 0x30, // ld a,030h
+ 0xED, 0x39, 0x32 //out0 (dcntl),a ;0 mem, max i/0 wait states
+};
+
+const __flash uint8_t sertest[] = {
+ 0xAF, // xor a
+ 0xED, 0x39, 0x36, // out0 (rcr),a ;disable DRAM refresh
+ 0x3E, 0x30, // ld a,030h
+ 0xED, 0x39, 0x32, // out0 (dcntl),a ;0 mem, max i/0 wait states
+ 0x3E, 0x80, // ld a,M_MPBT ;no MP, PS=10, DR=16, SS=0
+ 0xED, 0x39, 0x03, // out0 (cntlb1),a
+ 0x3E, 0x64, // ld a,M_RE + M_TE + M_MOD2 ;
+ 0xED, 0x39, 0x01, // out0 (cntla1),a
+ 0x3E, 0x00, // ld a,0
+ 0xED, 0x39, 0x05, // out0 (stat1),a ;Enable rx interrupts
+ 0xED, 0x38, 0x05, //l0:in0 a,(stat1)
+ 0xE6, 0x80, // and 80h
+ 0x28, 0xF9, // jr z,l0
+ 0xED, 0x00, 0x09, // in0 b,(rdr1)
+ 0xED, 0x38, 0x05, //l1:in0 a,(stat1)
+ 0xE6, 0x02, // and 02h
+ 0x28, 0xF9, // jr z,l1
+ 0xED, 0x01, 0x07, // out0 (tdr1),b
+ 0x18, 0xEA, // jr l0
+};
+
+const __flash uint8_t test1[] = {
+ 0xAF, // xor a
+ 0xED, 0x39, 0x36, // out0 (rcr),a ;disable DRAM refresh
+ 0x3E, 0x30, // ld a,030h
+ 0xED, 0x39, 0x32, // out0 (dcntl),a ;0 mem, max i/0 wait states
+ 0x21, 0x1E, 0x00, // ld hl,dmclrt ;load DMA registers
+ 0x06, 0x08, // ld b,dmct_e-dmclrt
+ 0x0E, 0x20, // ld c,sar0l
+ 0xED, 0x93, // otimr
+ 0x3E, 0xC3, // ld a,0c3h ;dst +1, src +1, burst
+ 0xED, 0x39, 0x31, // out0 (dmode),a ;
+ 0x3E, 0x62, // ld a,062h ;enable dma0,
+ 0xED, 0x39, 0x30, //cl_1: out0 (dstat),a ;copy 64k
+ 0x18, 0xFB, // jr cl_1 ;
+ 0x00, 0x00, //dmclrt: dw 0 ;src (inc)
+ 0x00, // db 0 ;src
+ 0x00, 0x00, // dw 0 ;dst (inc),
+ 0x00, // db 0 ;dst
+ 0x00, 0x00, // dw 0 ;count (64k)
+};
+
+
int main(void)
{
int_fast8_t state = 0;
int ch;
-// setvbuf(stdout, NULL, _IONBF, 0);
+ setup_avr();
serial_setup();
-// printf("\n(STM32F100+HD64180)_stamp Tester\n");
- printf("\n(ATMEGA1281+HD64180)_stamp Tester\n");
+ setup_rtc();
+ sei();
+
+ printf_P(PSTR("\n(ATMEGA1281+HD64180)_stamp Tester\n"));
DBG_P(1, "z80_setup_bus... ");
z80_setup_msg_fifo();
z80_setup_bus();
DBG_P(1, "done.\n");
-
DBG_P(1, "Get bus... ");
z80_busreq(LOW);
z80_reset(HIGH);
z80_request_bus();
DBG_P(1, "got it!\n");
+// z80_sram_fill(0, (uint32_t)512 * 1024, 0x00, 3);
+// z80_sram_cmp(0, (uint32_t)512 * 1024, 0x00, 3);
+// z80_dump_mem(0, 0x400);
+
z80_memset(0, 0x76, 0x80000);
- //z80_sram_fill(0, 512 * 1024, 0x76, 0);
- z80_sram_cmp(0, (uint32_t)512 * 1024, 0x76, 0);
+// z80_memset(0, 0x00, 0x80000);
+// z80_write_block(test1, 0, sizeof(test1));
+
+// z80_dump_mem(0, 0x100);
+
+// z80_sram_cmp(0, (uint32_t)512 * 1024, 0x76, 0);
z80_load_mem();
+// z80_write(0, 0x76);
+// z80_dump_mem(0, 0x200);
+
+
z80_reset(LOW);
DBG_P(1, "Bus released!\n");
z80_release_bus();
z80_reset(HIGH);
DBG_P(1, "Reset released!\n");
-
+ to_counter = 200;
+
while (1) {
if (Stat & S_10MS_TO) {
Stat &= ~S_10MS_TO;
do_10ms();
}
-
+
if ((ch = serial_getc()) >= 0) {
switch (state) {
if (ch == ESCCHAR) {
state = 1;
/* TODO: Timer starten */
- } else
- z80_memfifo_putc(fifo_out, ch);
+ } else {
+// z80_memfifo_putc(fifo_out, ch);
+ serial_putc(ch);
+ if (ch == '\r')
+ serial_putc('\n');
+ }
break;
case 1:
switch (ch) {
z80_reset_pulse();
break;
+ case 'b':
+ z80_request_bus();
+ z80_dump_mem(0, 0x2d20);
+ z80_release_bus();
+ break;
+
+ case 'e':
+ z80_request_bus();
+ z80_dump_mem(0x80000-0x4000, 0x800);
+ z80_dump_mem(0x80000-0x200, 0x200);
+ z80_release_bus();
+ break;
+
case ESCCHAR:
default:
- z80_memfifo_putc(fifo_out, ch);
+// z80_memfifo_putc(fifo_out, ch);
+ serial_putc(ch);
+ if (ch == '\r')
+ serial_putc('\n');
}
state = 0;
break;
}
}
- check_msg_fifo();
+// check_msg_fifo();
}
return 0;
projects / z180-stamp.git / blobdiff