Apple-2-Tools
/
apple2pi
mirror of https://github.com/dschmenk/apple2pi.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

add 40 track support

This commit is contained in:
ivanli88 2017-11-03 17:17:56 +08:00 committed by GitHub
parent 7269966299
commit e8d7907a7d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 109 additions and 88 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

197
src/dskwrite.c
View File

@ -1,88 +1,109 @@
#include "a2lib.c" #include "a2lib.c"
char online[] = { char online[] = {
// ORG $301 // ORG $301
0x20, 0x00, 0xBF, // JSR $BF00 (PRODOS) 0x20, 0x00, 0xBF, // JSR $BF00 (PRODOS)
0xC5, // DB ON_LINE 0xC5, // DB ON_LINE
0x08, 0x03, // DW PARAMS 0x08, 0x03, // DW PARAMS
0x60, // RTS 0x60, // RTS
// PARAMS @ $308 // PARAMS @ $308
0x02, // PARAM_COUNT 0x02, // PARAM_COUNT
0x60, // UNIT_NUM = DRIVE 0, SLOT 6 0x60, // UNIT_NUM = DRIVE 0, SLOT 6
0x00, 0x20 // DATA_BUFFER = $2000 0x00, 0x20 // DATA_BUFFER = $2000
}; };
char writeblk[] = { char writeblk[] = {
// ORG $301 // ORG $301
0x20, 0x00, 0xBF, // JSR $BF00 (PRODOS) 0x20, 0x00, 0xBF, // JSR $BF00 (PRODOS)
0x81, // DB WRITE_BLOCK 0x81, // DB WRITE_BLOCK
0x08, 0x03, // DW PARAMS 0x08, 0x03, // DW PARAMS
0x60, // RTS 0x60, // RTS
// PARAMS @ $308 // PARAMS @ $308
0x03, // PARAM_COUNT 0x03, // PARAM_COUNT
0x60, // UNIT_NUM = DRIVE 0, SLOT 6 0x60, // UNIT_NUM = DRIVE 0, SLOT 6
0x00, 0x20, // DATA_BUFFER = $2000 0x00, 0x20, // DATA_BUFFER = $2000
0x00, 0x00 // BLOCK_NUM 0x00, 0x00 // BLOCK_NUM
}; };
#define ORG 0x0301 char chgmtrk[] = {
#define BLOCK_NUM 0x030C // ORG $301
#define DATA_BUFFER 0x2000 0xAD, 0x8B, 0xC0, 0xAD, 0x8B, 0xC0, 0xAD, 0xE3,
char dsk[280][512]; 0xD6, 0xC9, 0x18, 0xD0, 0x05, 0xA9, 0x40, 0x8D,
0xE3, 0xD6, 0xAD, 0x81, 0xC0, 0x60
int main(int argc, char **argv) };
{ #define ORG 0x0301
FILE *dskfile; #define BLOCK_NUM 0x030C
char count[2], volname[21]; #define DATA_BUFFER 0x2000
int i, result, fd;
int pifd = a2open(argc > 2 ? argv[2] : "127.0.0.1"); char dsk[320][512];
if (pifd < 0)
{ int main(int argc, char **argv)
perror("Unable to connect to Apple II Pi"); {
exit(EXIT_FAILURE); FILE *dskfile;
} char count[2], volname[21];
if (argc < 2) long fsize;
{ int i, result, fd, dblock;
perror("Usage: dskwrite <filename> [ip address]\n"); int pifd = a2open(argc > 2 ? argv[2] : "127.0.0.1");
exit(EXIT_FAILURE); if (pifd < 0)
} {
sleep(1); perror("Unable to connect to Apple II Pi");
fflush(stdin); exit(EXIT_FAILURE);
a2write(pifd, ORG, sizeof(online), online); }
a2call(pifd, ORG, &result); if (argc < 2)
if (result == 0) {
{ perror("Usage: dskwrite <filename> [ip address]\n");
a2read(pifd, DATA_BUFFER, 16, volname); exit(EXIT_FAILURE);
volname[(volname[0] & 0x0F) + 1] = '\0'; }
printf("Are you sure you want to overwrite volume :%s?", volname + 1); sleep(1);
fflush(stdout); fflush(stdin);
fgets(count, 2, stdin);
if (count[0] != 'y' && count[0] != 'Y') a2write(pifd, ORG, sizeof(online), online);
{ a2call(pifd, ORG, &result);
a2close(pifd);
exit(EXIT_FAILURE); if (result == 0)
} {
} a2read(pifd, DATA_BUFFER, 16, volname);
if ((dskfile = fopen(argv[1], "rb"))) volname[(volname[0] & 0x0F) + 1] = '\0';
{ printf("Are you sure you want to overwrite volume :%s?", volname + 1);
fread(dsk, 1, 280*512, dskfile); fflush(stdout);
fclose(dskfile); fgets(count, 2, stdin);
} if (count[0] != 'y' && count[0] != 'Y')
else {
{ a2close(pifd);
perror("Unable to read .PO file\n"); exit(EXIT_FAILURE);
a2close(pifd); }
exit(EXIT_FAILURE); }
} a2write(pifd, ORG, sizeof(chgmtrk), chgmtrk);
a2write(pifd, ORG, sizeof(writeblk), writeblk); a2call(pifd, ORG, &result);
for (i = 0; i < 280; i++)
{ if ((dskfile = fopen(argv[1], "rb")))
printf("Writing block #%d\r", i); {
fflush(stdout);
count[0] = i; fseek(dskfile, 0, SEEK_END);
count[1] = i >> 8; fsize = ftell(dskfile);
a2write(pifd, DATA_BUFFER, 512, dsk[i]); fseek(dskfile, 0 , SEEK_SET);
a2write(pifd, BLOCK_NUM, 2, count);
a2call(pifd, ORG, &result); dblock = fsize / 512;
} fread(dsk, 1, fsize , dskfile);
a2close(pifd); fclose(dskfile);
return EXIT_SUCCESS; }
} else
{
perror("Unable to read .PO file\n");
a2close(pifd);
exit(EXIT_FAILURE);
}
a2write(pifd, ORG, sizeof(writeblk), writeblk);
for (i = 0; i < dblock; i++)
{
printf("Writing block #%d\r", i);
fflush(stdout);
count[0] = i;
count[1] = i >> 8;
a2write(pifd, DATA_BUFFER, 512, dsk[i]);
a2write(pifd, BLOCK_NUM, 2, count);
a2call(pifd, ORG, &result);
}
a2close(pifd);
return EXIT_SUCCESS;
}