d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed reptition in file_poke

This commit is contained in:
Andrew Alderwick 2021-04-14 21:56:50 +01:00
parent 133f1a4855
commit f7f4c78534
1 changed files with 12 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/emulator.c
View File

@ -216,28 +216,19 @@ screen_poke(Uxn *u, Uint16 ptr, Uint8 b0, Uint8 b1)
Uint8
file_poke(Uxn *u, Uint16 ptr, Uint8 b0, Uint8 b1)
{
Uint8 *m = u->ram.dat;
char *name = (char *)&m[(m[ptr + 8] << 8) + m[ptr + 8 + 1]];
Uint16 length = mempeek16(u, ptr + 8 + 2);
Uint8 *m = u->ram.dat, read = b0 == 0x0d;
if(read || b0 == 0x0f) {
char *name = (char *)&m[mempeek16(u, ptr + 8)];
Uint16 result = 0, length = mempeek16(u, ptr + 8 + 2);
Uint16 offset = mempeek16(u, ptr + 4);
if(b0 == 0x0d) {
Uint16 addr = (m[ptr + 8 + 4] << 8) + b1;
FILE *f = fopen(name, "r");
if(f && fseek(f, offset, SEEK_SET) != -1 && (length = fread(&m[addr], 1, length, f))) {
Uint16 addr = (m[ptr + b0 - 1] << 8) | b1;
FILE *f = fopen(name, read ? "r" : (offset ? "a" : "w"));
if(f) {
if(fseek(f, offset, SEEK_SET) != -1 && (result = read ? fread(&m[addr], 1, length, f) : fwrite(&m[addr], 1, length, f)))
printf("%s %d bytes, at %04x from %s\n", read ? "Loaded" : "Saved", length, addr, name);
fclose(f);
printf("Loaded %d bytes, at %04x from %s\n", length, addr, name);
} else
length = 0;
mempoke16(u, ptr + 2, length);
} else if(b0 == 0x0f) {
Uint16 addr = (m[ptr + 8 + 6] << 8) + b1;
FILE *f = fopen(name, (m[ptr + 2] & 0x1) ? "a" : "w");
if(f && fseek(f, offset, SEEK_SET) != -1 && (length = fwrite(&m[addr], 1, length, f))) {
fclose(f);
printf("Saved %d bytes, at %04x from %s\n", length, addr, name);
} else
length = 0;
mempoke16(u, ptr + 2, length);
}
mempoke16(u, ptr + 2, result);
}
return b1;
}