diff --git a/src/A2PI.PO b/src/A2PI.PO index e23c0e7..f021a0d 100755 Binary files a/src/A2PI.PO and b/src/A2PI.PO differ diff --git a/src/a2pid.c b/src/a2pid.c index 019f67d..378df38 100755 --- a/src/a2pid.c +++ b/src/a2pid.c @@ -714,7 +714,7 @@ void main(int argc, char **argv) } else { - printf("a2pi: Bad Sync ACK [0x%02X]\n", iopkt[0]); + prlog("a2pi: Bad Sync ACK\n"); stop = TRUE; } } @@ -740,7 +740,7 @@ void main(int argc, char **argv) { if (read(a2fd, iopkt, 3) == 3) { - // printf("a2pi: Event [0x%02X] [0x%02X] [0x%02X]\n", iopkt[0], iopkt[1], iopkt[2]); + printf("a2pi: Event [0x%02X] [0x%02X] [0x%02X]\n", iopkt[0], iopkt[1], iopkt[2]); switch (iopkt[0]) { case 0x80: /* sync */ diff --git a/src/dskread.c b/src/dskread.c index 0303f27..83279be 100755 --- a/src/dskread.c +++ b/src/dskread.c @@ -2,28 +2,28 @@ char online[] = { // ORG $300 - 0x20, 0x00, 0xBF, // JSR $BF00 (PRODOS) - 0xC5, // DB ON_LINE - 0x08, 0x03, // DW PARAMS - 0x60, // RTS - 0xEA, + 0x20, 0x00, 0xBF, // JSR $BF00 (PRODOS) + 0xC5, // DB ON_LINE + 0x08, 0x03, // DW PARAMS + 0x60, // RTS + 0xEA, // PARAMS @ $308 - 0x02, // PARAM_COUNT - 0x60, // UNIT_NUM = DRIVE 0, SLOT 6 - 0x00, 0x20 // DATA_BUFFER = $2000 + 0x02, // PARAM_COUNT + 0x60, // UNIT_NUM = DRIVE 0, SLOT 6 + 0x00, 0x20 // DATA_BUFFER = $2000 }; char readblk[] = { // ORG $300 - 0x20, 0x00, 0xBF, // JSR $BF00 (PRODOS) - 0x80, // DB READ_BLOCK - 0x08, 0x03, // DW PARAMS - 0x60, // RTS - 0xEA, + 0x20, 0x00, 0xBF, // JSR $BF00 (PRODOS) + 0x80, // DB READ_BLOCK + 0x08, 0x03, // DW PARAMS + 0x60, // RTS + 0xEA, // PARAMS @ $308 - 0x03, // PARAM_COUNT - 0x60, // UNIT_NUM = DRIVE 0, SLOT 6 - 0x00, 0x20, // DATA_BUFFER = $2000 - 0x00, 0x00 // BLOCK_NUM + 0x03, // PARAM_COUNT + 0x60, // UNIT_NUM = DRIVE 0, SLOT 6 + 0x00, 0x20, // DATA_BUFFER = $2000 + 0x00, 0x00 // BLOCK_NUM }; #define ORG 0x0300 #define BLOCK_NUM 0x030C @@ -32,37 +32,38 @@ char dsk[280][512]; int main(int argc, char **argv) { - FILE *dskfile; - char count[2], volname[21]; - int i, result, fd; - int pifd = a2open(argc > 1 ? argv[1] : "127.0.0.1"); - if (pifd < 0) - { - perror("Unable to connect to Apple II Pi"); - exit(EXIT_FAILURE); - } - a2write(pifd, ORG, sizeof(online), online); - a2call(pifd, ORG, &result); - a2read(pifd, DATA_BUFFER, 16, volname); - volname[(volname[0] & 0x0F) + 1] = '\0'; - printf("Volume name:%s\n", volname + 1); - strcat(volname + 1, ".PO"); - a2write(pifd, ORG, sizeof(readblk), readblk); - for (i = 0; i < 280; 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, 280*512, dskfile); - fclose(dskfile); - } - return EXIT_SUCCESS; + FILE *dskfile; + char count[2], volname[21]; + int i, result, fd; + int pifd = a2open(argc > 1 ? argv[1] : "127.0.0.1"); + if (pifd < 0) + { + perror("Unable to connect to Apple II Pi"); + exit(EXIT_FAILURE); + } + sleep(1); + a2write(pifd, ORG, sizeof(online), online); + a2call(pifd, ORG, &result); + a2read(pifd, DATA_BUFFER, 16, volname); + volname[(volname[0] & 0x0F) + 1] = '\0'; + printf("Volume name:%s\n", volname + 1); + strcat(volname + 1, ".PO"); + a2write(pifd, ORG, sizeof(readblk), readblk); + for (i = 0; i < 280; 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, 280*512, dskfile); + fclose(dskfile); + } + return EXIT_SUCCESS; } \ No newline at end of file diff --git a/src/dskwrite.c b/src/dskwrite.c index 74b4aa2..064c0d4 100755 --- a/src/dskwrite.c +++ b/src/dskwrite.c @@ -2,28 +2,28 @@ char online[] = { // ORG $300 - 0x20, 0x00, 0xBF, // JSR $BF00 (PRODOS) - 0xC5, // DB ON_LINE - 0x08, 0x03, // DW PARAMS - 0x60, // RTS - 0xEA, + 0x20, 0x00, 0xBF, // JSR $BF00 (PRODOS) + 0xC5, // DB ON_LINE + 0x08, 0x03, // DW PARAMS + 0x60, // RTS + 0xEA, // PARAMS @ $308 - 0x02, // PARAM_COUNT - 0x60, // UNIT_NUM = DRIVE 0, SLOT 6 - 0x00, 0x20 // DATA_BUFFER = $2000 + 0x02, // PARAM_COUNT + 0x60, // UNIT_NUM = DRIVE 0, SLOT 6 + 0x00, 0x20 // DATA_BUFFER = $2000 }; char writeblk[] = { // ORG $300 - 0x20, 0x00, 0xBF, // JSR $BF00 (PRODOS) - 0x81, // DB WRITE_BLOCK - 0x08, 0x03, // DW PARAMS - 0x60, // RTS - 0xEA, + 0x20, 0x00, 0xBF, // JSR $BF00 (PRODOS) + 0x81, // DB WRITE_BLOCK + 0x08, 0x03, // DW PARAMS + 0x60, // RTS + 0xEA, // PARAMS @ $308 - 0x03, // PARAM_COUNT - 0x60, // UNIT_NUM = DRIVE 0, SLOT 6 - 0x00, 0x20, // DATA_BUFFER = $2000 - 0x00, 0x00 // BLOCK_NUM + 0x03, // PARAM_COUNT + 0x60, // UNIT_NUM = DRIVE 0, SLOT 6 + 0x00, 0x20, // DATA_BUFFER = $2000 + 0x00, 0x00 // BLOCK_NUM }; #define ORG 0x0300 #define BLOCK_NUM 0x030C @@ -32,57 +32,59 @@ char dsk[280][512]; int main(int argc, char **argv) { - FILE *dskfile; - char count[2], volname[21]; - int i, result, fd; - int pifd = a2open(argc > 2 ? argv[2] : "127.0.0.1"); - if (pifd < 0) - { - perror("Unable to connect to Apple II Pi"); - exit(EXIT_FAILURE); - } - if (argc < 2) - { - perror("Usage: dskwrite [ip address]\n"); - exit(EXIT_FAILURE); - } - a2write(pifd, ORG, sizeof(online), online); - a2call(pifd, ORG, &result); - if (result == 0) - { - a2read(pifd, DATA_BUFFER, 16, volname); - volname[(volname[0] & 0x0F) + 1] = '\0'; - printf("Are you sure you want to overwrite volume :%s?", volname + 1); - fflush(stdout); - fgets(count, 2, stdin); - if (count[0] != 'y' && count[0] != 'Y') - { - a2close(pifd); - exit(EXIT_FAILURE); - } - } - if ((dskfile = fopen(argv[1], "rb"))) + FILE *dskfile; + char count[2], volname[21]; + int i, result, fd; + int pifd = a2open(argc > 2 ? argv[2] : "127.0.0.1"); + if (pifd < 0) + { + perror("Unable to connect to Apple II Pi"); + exit(EXIT_FAILURE); + } + if (argc < 2) + { + perror("Usage: dskwrite [ip address]\n"); + exit(EXIT_FAILURE); + } + sleep(1); + fflush(stdin); + a2write(pifd, ORG, sizeof(online), online); + a2call(pifd, ORG, &result); + if (result == 0) + { + a2read(pifd, DATA_BUFFER, 16, volname); + volname[(volname[0] & 0x0F) + 1] = '\0'; + printf("Are you sure you want to overwrite volume :%s?", volname + 1); + fflush(stdout); + fgets(count, 2, stdin); + if (count[0] != 'y' && count[0] != 'Y') { - fread(dsk, 1, 280*512, dskfile); - fclose(dskfile); - } - else - { - perror("Unable to read .PO file\n"); - a2close(pifd); - exit(EXIT_FAILURE); - } - a2write(pifd, ORG, sizeof(writeblk), writeblk); - for (i = 0; i < 280; 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; + a2close(pifd); + exit(EXIT_FAILURE); + } + } + if ((dskfile = fopen(argv[1], "rb"))) + { + fread(dsk, 1, 280*512, dskfile); + fclose(dskfile); + } + else + { + perror("Unable to read .PO file\n"); + a2close(pifd); + exit(EXIT_FAILURE); + } + a2write(pifd, ORG, sizeof(writeblk), writeblk); + for (i = 0; i < 280; 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; } \ No newline at end of file