tools: add blkup

With this tool, we can send content to a TRS-80 directly to floppy.
This paves the way to writing ourselves a set of disks containing the
blkfs!
This commit is contained in:
Virgil Dupras 2020-05-03 08:53:17 -04:00
parent 7344186c62
commit 5504c796ee
3 changed files with 84 additions and 4 deletions

1
tools/.gitignore vendored
View File

@ -10,3 +10,4 @@
/exec
/blkpack
/blkunpack
/blkup

67
tools/blkup.c Normal file
View File

@ -0,0 +1,67 @@
#include <stdlib.h>
#include <stdio.h>
#include <fcntl.h>
#include <unistd.h>
#include <string.h>
#include "common.h"
/* Push specified file to specified device blk device, starting from blkno
* and upwards.
*/
int main(int argc, char **argv)
{
if (argc != 4) {
fprintf(stderr, "Usage: ./blkup device blkno fname\n");
return 1;
}
unsigned int blkno = strtol(argv[2], NULL, 10);
FILE *fp = fopen(argv[3], "r");
if (!fp) {
fprintf(stderr, "Can't open %s.\n", argv[3]);
return 1;
}
int fd = open(argv[1], O_RDWR|O_NOCTTY|O_SYNC);
if (fd < 0) {
fprintf(stderr, "Could not open %s\n", argv[1]);
return 1;
}
set_interface_attribs(fd, 0, 0);
set_blocking(fd, 1);
char s[0x40];
char buf[1024] = {0};
sendcmdp(fd, ": _ 1024 0 DO KEY DUP .x I BLK( + C! LOOP ;");
int returncode = 0;
while (fread(buf, 1, 1024, fp)) {
sendcmd(fd, "_");
for (int i=0; i<1024; i++) {
putchar('.');
fflush(stdout);
write(fd, &buf[i], 1);
usleep(1000); // let it breathe
mread(fd, s, 2); // read hex pair
s[2] = 0; // null terminate
unsigned char c = strtol(s, NULL, 16);
if (c != buf[i]) {
// mismatch!
fprintf(stderr, "Mismatch at bno %d (%d) %d != %d.\n", blkno, i, buf[i], c);
// we don't exit now because we need to "consume" our whole program.
returncode = 1;
}
usleep(1000); // let it breathe
}
readprompt(fd);
if (returncode) break;
memset(buf, 0, 1024);
sprintf(s, "%d BLK> ! BLK!", blkno);
sendcmdp(fd, s);
blkno++;
}
sendcmdp(fd, "FORGET _");
printf("Done!\n");
fclose(fp);
return returncode;
}

View File

@ -16,10 +16,22 @@ void mread(int fd, char *s, int count)
}
}
void mexpect(int fd, char ec)
{
char c;
mread(fd, &c, 1);
if (c != ec) {
fprintf(stderr, "Expected %d but got %d\n", ec, c);
}
}
void readprompt(int fd)
{
char junk[3];
mread(fd, junk, 3); // " ok" prompt
mexpect(fd, ' ');
mexpect(fd, 'o');
mexpect(fd, 'k');
mexpect(fd, '\r');
mexpect(fd, '\n');
}
void sendcmd(int fd, char *cmd)
@ -34,14 +46,14 @@ void sendcmd(int fd, char *cmd)
usleep(1000);
}
write(fd, "\r", 1);
mread(fd, junk, 2); // sends back \r\n
mexpect(fd, '\r');
mexpect(fd, '\n');
usleep(1000);
}
// Send a cmd and also read the " ok" prompt
void sendcmdp(int fd, char *cmd)
{
char junk[2];
sendcmd(fd, cmd);
readprompt(fd);
}