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

add support 40 track 

use cammand : dskread 40
This commit is contained in:
ivanli88 2017-11-03 17:12:45 +08:00 committed by GitHub
parent 9e43df64ff
commit 7269966299
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 93 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

159
src/dskread.c
View File

@ -1,66 +1,93 @@
#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 readblk[] = { char chgmtrk[] = {
// ORG $301 // ORG $301
0x20, 0x00, 0xBF, // JSR $BF00 (PRODOS) 0xAD, 0x8B, 0xC0, 0xAD, 0x8B, 0xC0, 0xAD, 0xE3,
0x80, // DB READ_BLOCK 0xD6, 0xC9, 0x18, 0xD0, 0x05, 0xA9, 0x40, 0x8D,
0x08, 0x03, // DW PARAMS 0xE3, 0xD6, 0xAD, 0x81, 0xC0, 0x60
0x60, // RTS };
// PARAMS @ $308 char readblk[] = {
0x03, // PARAM_COUNT // ORG $301
0x60, // UNIT_NUM = DRIVE 0, SLOT 6 0x20, 0x00, 0xBF, // JSR $BF00 (PRODOS)
0x00, 0x20, // DATA_BUFFER = $2000 0x80, // DB READ_BLOCK
0x00, 0x00 // BLOCK_NUM 0x08, 0x03, // DW PARAMS
}; 0x60, // RTS
#define ORG 0x0301 // PARAMS @ $308
#define BLOCK_NUM 0x030C 0x03, // PARAM_COUNT
#define DATA_BUFFER 0x2000 0x60, // UNIT_NUM = DRIVE 0, SLOT 6
char dsk[280][512]; 0x00, 0x20, // DATA_BUFFER = $2000
0x00, 0x00 // BLOCK_NUM
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; char dsk[320][512];
int pifd = a2open(argc > 1 ? argv[1] : "127.0.0.1");
if (pifd < 0) int main(int argc, char **argv)
{ {
perror("Unable to connect to Apple II Pi"); FILE *dskfile;
exit(EXIT_FAILURE); char count[2], volname[21];
} char noname[] = "_NONAME";
a2write(pifd, ORG, sizeof(online), online); int i, result, fd, trk, pifd;
a2call(pifd, ORG, &result); if (argc > 1)
a2read(pifd, DATA_BUFFER, 16, volname); {
volname[(volname[0] & 0x0F) + 1] = '\0'; i = strtol(argv[1],NULL,10);
printf("Volume name:%s\n", volname + 1); pifd = a2open(i > 41 ? argv[1] : "127.0.0.1");
strcat(volname + 1, ".PO"); trk = (i < 41 ? i : 35);
a2write(pifd, ORG, sizeof(readblk), readblk); }
for (i = 0; i < 280; i++) else
{ {
printf("Reading block #%d\r", i); pifd = a2open("127.0.0.1");
fflush(stdout); trk = 35;
count[0] = i; }
count[1] = i >> 8; if (pifd < 0)
a2write(pifd, BLOCK_NUM, 2, count); {
a2call(pifd, ORG, &result); perror("Unable to connect to Apple II Pi");
a2read(pifd, DATA_BUFFER, 512, dsk[i]); exit(EXIT_FAILURE);
} }
a2close(pifd); a2write(pifd, ORG, sizeof(chgmtrk), chgmtrk);
if ((dskfile = fopen(volname + 1, "wb"))) a2call(pifd, ORG, &result);
{
fwrite(dsk, 1, 280*512, dskfile); a2write(pifd, ORG, sizeof(online), online);
fclose(dskfile); a2call(pifd, ORG, &result);
} a2read(pifd, DATA_BUFFER, 16, volname);
return EXIT_SUCCESS; volname[(volname[0] & 0x0F) + 1] = '\0';
} printf("%x\n",volname[0]);
printf("%x\n",volname);
if ( !isprint(volname[1]) )
{
strcpy(volname, noname);
printf("NO VOL NAME OR HEX VOL\n");
}
printf("Volume name:%s\n", volname +1);
strcat(volname + 1, ".PO");
a2write(pifd, ORG, sizeof(readblk), readblk);
for (i = 0; i < trk*8; i++)
{
printf("Reading block #%d\r", i);
fflush(stdout);
count[0] = i;
count[1] = i >> 8;
a2write(pifd, BLOCK_NUM, 2, count);
a2call(pifd, ORG, &result);
a2read(pifd, DATA_BUFFER, 512, dsk[i]);
}
a2close(pifd);
if ((dskfile = fopen(volname + 1, "wb")))
{
fwrite(dsk, 1, trk*8*512, dskfile);
fclose(dskfile);
}
return EXIT_SUCCESS;
}