diff options
Diffstat (limited to 'src/czx81.c')
| -rw-r--r-- | src/czx81.c | 172 |
1 files changed, 165 insertions, 7 deletions
diff --git a/src/czx81.c b/src/czx81.c index 27bfe5b..55bae6a 100644 --- a/src/czx81.c +++ b/src/czx81.c @@ -111,6 +111,9 @@ static int current_key = -1; static int trace = FALSE; +static char snappath[4096] = "."; +static int allow_save = FALSE; + static struct { int key; /* The curses keycode */ @@ -291,6 +294,101 @@ static void RenderScreen(void) } +static FILE *OpenTapeFile(Z80Word addr, const char *mode) +{ + static const char zx_chars[] = "\"#$:?()><=+-*/;,." + "0123456789" + "abcdefghijklmnopqrstuvwxyz"; + char full_fn[4096]; + char fn[4096]; + int f; + int done; + + done = FALSE; + f = 0; + + while(!done) + { + int ch; + + ch = mem[addr++]; + + if (ch & 0x80) + { + done = TRUE; + ch &= 0x7f; + } + + if (ch >= 11 && ch <=63) + { + fn[f++] = zx_chars[ch - 11]; + } + } + + fn[f] = 0; + + sprintf(full_fn, "%s/%s", snappath, fn); + + return fopen(full_fn, mode); +} + + +static void ReadConfig(void) +{ + char fn[4096] = {0}; + char *env; + FILE *fp; + + if ((env = getenv("HOME"))) + { + strcpy(fn, env); + strcat(fn, "/"); + } + + strcat(fn, ".czx81rc"); + + if ((fp = fopen(fn, "r"))) + { + char s[4096]; + + while(fgets(s, sizeof s, fp)) + { + size_t l; + char *tok1 = NULL; + char *tok2 = NULL; + + l = strlen(s); + + while(l && s[l - 1] == '\n') + { + s[--l] = 0; + } + + tok1 = strtok(s, " \t"); + + if (tok1) + { + tok2 = strtok(NULL, " \t"); + } + + if (strcmp(tok1, "snappath") == 0) + { + if (tok2) + { + strcpy(snappath, tok2); + } + } + else if (strcmp(tok1, "allowsave") == 0) + { + allow_save = TRUE; + } + } + + fclose(fp); + } +} + + /* -------------------------------------------------- ZX81 CODE */ static void RomPatch(const Z80Byte patch[], Z80Word addr) @@ -552,14 +650,34 @@ static void PressKey(int key) static int EDCallback(Z80 *z80, Z80Val data) { - Z80Word pause; - switch((Z80Byte)data) { case ED_SAVE: - if (z80->DE.w < 0x8000) + if (allow_save && z80->DE.w < 0x8000) { - /* TODO: Save */ + FILE *fp; + + fp = OpenTapeFile(z80->HL.w, "wb"); + + if (fp) + { + int f; + int end; + + f = 0x4009; + end = PEEKW(E_LINE); + + while(f <= end) + { + fputc(mem[f++], fp); + } + + fclose(fp); + } + else + { + sprintf(message, "Failed to open file"); + } } break; @@ -567,7 +685,28 @@ static int EDCallback(Z80 *z80, Z80Val data) case ED_LOAD: if (z80->DE.w < 0x8000) { - /* TODO: Load */ + FILE *fp; + + fp = OpenTapeFile(z80->DE.w, "rb"); + + if (fp) + { + int c; + Z80Byte *a; + + a = mem + 0x4009; + + while((c = getc(fp)) != EOF) + { + *a++ = c; + } + + fclose(fp); + } + else + { + sprintf(message, "Failed to open file"); + } } mem[CDFLAG] = 0xc0; @@ -584,20 +723,37 @@ static int EDCallback(Z80 *z80, Z80Val data) break; case ED_PAUSE: + { + Z80Word pause; + struct timespec start; + waitkey = TRUE; pause = z80->BC.w; while(pause-- && !(mem[CDFLAG]&1)) { + struct timespec end; + struct timespec pause = {0}; + ClearScreen(); PressKey(getch()); CheckTimers(z80, FRAME_TSTATES); RenderScreen(); + + clock_gettime(CLOCK_MONOTONIC, &end); + start = end; + pause.tv_nsec = 20000000 - TimeDiff(&start, &end); + + if (pause.tv_nsec > 0 && FRAME_TSTATES != FAST_TSTATES) + { + nanosleep(&pause, NULL); + } } waitkey = FALSE; break; + } } return TRUE; @@ -840,6 +996,8 @@ int main(void) setlocale(LC_ALL, ""); + ReadConfig(); + z80 = Z80Init(ZX81ReadMem, ZX81WriteMem, ZX81ReadPort, @@ -862,14 +1020,14 @@ int main(void) clock_gettime(CLOCK_MONOTONIC, &start); - ClearScreen(); - while(!quit) { struct timespec end; struct timespec pause = {0}; int ch; + ClearScreen(); + Z80Exec(z80); ch = getch(); |