WDOS Software
This commit is contained in:
Oliver Lehmann
parent
55769aa2cd
commit
df41260ac5
|
|
@ -0,0 +1,499 @@
|
||||||
|
/**************************************************************************
|
||||||
|
***************************************************************************
|
||||||
|
|
||||||
|
W E G A - Quelle (C) ZFT/KEAW Abt. Basissoftware - 1988
|
||||||
|
Programm: wdos.c
|
||||||
|
|
||||||
|
Bearbeiter : P. Hoge
|
||||||
|
Datum : 24.9.89
|
||||||
|
Version : 1.3
|
||||||
|
|
||||||
|
***************************************************************************
|
||||||
|
|
||||||
|
Koppelprogramm zu MP600-Erweiterungskarten
|
||||||
|
|
||||||
|
***************************************************************************
|
||||||
|
**************************************************************************/
|
||||||
|
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <termio.h>
|
||||||
|
#include <signal.h>
|
||||||
|
#include <time.h>
|
||||||
|
#include <fcntl.h>
|
||||||
|
#include <sys/types.h>
|
||||||
|
#include <sys/stat.h>
|
||||||
|
|
||||||
|
extern errno;
|
||||||
|
extern char *getenv();
|
||||||
|
extern char *malloc();
|
||||||
|
|
||||||
|
#define BUFLEN 512
|
||||||
|
#define DISKBUF 40*512
|
||||||
|
|
||||||
|
int timeout; /* Signal-Flag */
|
||||||
|
int parent, child1, child2, child3; /* Prozess-Id's */
|
||||||
|
int cpu2tty, cpu2lp, cpu2disk, cpu2ram;
|
||||||
|
int fddisk[6];
|
||||||
|
struct diskrq {
|
||||||
|
char rcode;
|
||||||
|
char drive;
|
||||||
|
long blkoff;
|
||||||
|
long addr;
|
||||||
|
unsigned len;
|
||||||
|
} diskrq;
|
||||||
|
|
||||||
|
char *tty, *ttyname();
|
||||||
|
char *term;
|
||||||
|
char *lp;
|
||||||
|
unsigned termtyp = 0;
|
||||||
|
char *pname;
|
||||||
|
struct termio targ; /* definiert in termio.h */
|
||||||
|
struct termio savterm; /* original tty-Flags */
|
||||||
|
int lpopenflg;
|
||||||
|
struct stat stbuf;
|
||||||
|
char mname[7][50];
|
||||||
|
|
||||||
|
char buffer[BUFLEN];
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Terminal Write-Protected setzen
|
||||||
|
* tty-Parameter sichern und "Raw"-Mode setzen
|
||||||
|
*/
|
||||||
|
settty()
|
||||||
|
{
|
||||||
|
tty = ttyname(1); /* Terminal-Namen ermitteln */
|
||||||
|
chmod(tty, 0600);
|
||||||
|
ioctl(0, TCGETA, &savterm);
|
||||||
|
ioctl(0, TCGETA, &targ);
|
||||||
|
targ.c_iflag = IGNBRK|IGNPAR;
|
||||||
|
if (termtyp != 2)
|
||||||
|
targ.c_iflag |= IXON;
|
||||||
|
targ.c_oflag = 0;
|
||||||
|
targ.c_cflag &= ~PARENB;
|
||||||
|
targ.c_cflag |= (CS8|CSTOPB|CLOCAL|CREAD);
|
||||||
|
targ.c_lflag = 0;
|
||||||
|
targ.c_cc[VMIN] = 1;
|
||||||
|
targ.c_cc[VTIME] = 0;
|
||||||
|
ioctl(0, TCSETA, &targ);
|
||||||
|
if (termtyp == 1) { /* P8000/WDOS-Terminal */
|
||||||
|
putchar(0x1b);
|
||||||
|
putchar('m');
|
||||||
|
sleep(3);
|
||||||
|
}
|
||||||
|
if (termtyp == 2) { /* Wyse WY-99GT */
|
||||||
|
putchar(0x1b);
|
||||||
|
putchar('~');
|
||||||
|
putchar('5');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Restore tty-Parameter
|
||||||
|
*/
|
||||||
|
restty()
|
||||||
|
{
|
||||||
|
if (termtyp == 1) {
|
||||||
|
putchar(0x1b);
|
||||||
|
putchar('1');
|
||||||
|
sleep(2);
|
||||||
|
}
|
||||||
|
if (termtyp == 2) {
|
||||||
|
printf("%s","\033G0\033.1\033v");
|
||||||
|
putchar('+');
|
||||||
|
}
|
||||||
|
ioctl(0, TCSETA, &savterm);
|
||||||
|
chmod(tty, 0622);
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Eingabe vom Terminal zu CPU2 senden
|
||||||
|
*/
|
||||||
|
term_to_cpu2()
|
||||||
|
{
|
||||||
|
char c;
|
||||||
|
|
||||||
|
while (1) { /* Schleife endet nie */
|
||||||
|
read(0, &c, 1);
|
||||||
|
if ((termtyp && c == 0x58) || /* F12 beendet Programm */
|
||||||
|
(termtyp == 0 && c == 0x1c)) /* ^\ beendet Programm */
|
||||||
|
intrupt();
|
||||||
|
else
|
||||||
|
write(cpu2tty, &c, 1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* CPU2-Terminalasgabe zum Terminal senden
|
||||||
|
*/
|
||||||
|
cpu2_to_term()
|
||||||
|
{
|
||||||
|
register n_read;
|
||||||
|
register char *buf;
|
||||||
|
|
||||||
|
buf = malloc(0x800);
|
||||||
|
while (1) {
|
||||||
|
n_read = read(cpu2tty, buf, 0x800);
|
||||||
|
write(1, buf, n_read);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* CPU2-Druckerausgabe zum Drucker senden
|
||||||
|
*/
|
||||||
|
cpu2_to_lp()
|
||||||
|
{
|
||||||
|
register n_read;
|
||||||
|
register FILE *fp;
|
||||||
|
|
||||||
|
n_read = read(cpu2lp, buffer, BUFLEN);
|
||||||
|
if (lp) {
|
||||||
|
if (fp = fopen(lp, "r+")) {
|
||||||
|
if (strncmp(lp, "/dev", 4) == 0)
|
||||||
|
setbuf(fp, (char *)0);
|
||||||
|
goto lpwrite;
|
||||||
|
}
|
||||||
|
printf("\r\n%s: kann %s nicht oeffnen\r\n", pname, lp);
|
||||||
|
printf("Druckerausgaben erfolgen zur Datei /tmp/wdoslp\r\n");
|
||||||
|
}
|
||||||
|
fp = fopen("/tmp/wdoslp", "w+");
|
||||||
|
|
||||||
|
lpwrite:
|
||||||
|
while (1) {
|
||||||
|
fwrite(buffer, sizeof(*buffer), n_read, fp);
|
||||||
|
n_read = read(cpu2lp, buffer, BUFLEN);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Disk-Arbeit realisieren
|
||||||
|
*/
|
||||||
|
cpu2_disk()
|
||||||
|
{
|
||||||
|
register struct diskrq *prq = &diskrq;
|
||||||
|
register d;
|
||||||
|
register unsigned len;
|
||||||
|
register n_read;
|
||||||
|
char comcode;
|
||||||
|
char *buf;
|
||||||
|
|
||||||
|
buf = malloc(DISKBUF);
|
||||||
|
if (buf == 0) {
|
||||||
|
printf("Malloc\n");
|
||||||
|
sleep(4);
|
||||||
|
}
|
||||||
|
while (1) {
|
||||||
|
read(cpu2disk, &diskrq, sizeof(struct diskrq));
|
||||||
|
|
||||||
|
comcode = 0;
|
||||||
|
if (((d = prq->drive) > 5) || prq->len == 0) {
|
||||||
|
comcode = 1;
|
||||||
|
goto diskend;
|
||||||
|
}
|
||||||
|
if (fddisk[d] == 0) {
|
||||||
|
if (mname[d][0]==0 || (fddisk[d]=open(mname[d],O_RDWR))==-1) {
|
||||||
|
fddisk[d] = 0;
|
||||||
|
comcode = 0x80;
|
||||||
|
goto diskend;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
lseek(fddisk[d], prq->blkoff, 0);
|
||||||
|
lseek(cpu2ram, prq->addr, 0);
|
||||||
|
while (prq->len != 0) {
|
||||||
|
len = prq->len;
|
||||||
|
if (len > DISKBUF)
|
||||||
|
len = DISKBUF;
|
||||||
|
prq->len -= len;
|
||||||
|
switch (prq->rcode) {
|
||||||
|
case 1: /* Read */
|
||||||
|
n_read = read(fddisk[d], buf, len);
|
||||||
|
if (n_read == -1) {
|
||||||
|
comcode = 0x10; /* Fehler */
|
||||||
|
goto diskend;
|
||||||
|
}
|
||||||
|
while (len > n_read) {
|
||||||
|
buf[n_read] = 0;
|
||||||
|
n_read++;
|
||||||
|
}
|
||||||
|
if (write(cpu2ram, buf, n_read) != n_read) {
|
||||||
|
comcode = 0x08;
|
||||||
|
goto diskend;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 2: /* Write */
|
||||||
|
n_read = read(cpu2ram, buf, len);
|
||||||
|
if (n_read != len) {
|
||||||
|
comcode = 0x08;
|
||||||
|
goto diskend;
|
||||||
|
}
|
||||||
|
if (write(fddisk[d], buf, n_read) != n_read) {
|
||||||
|
comcode = 0x10;
|
||||||
|
goto diskend;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
default:
|
||||||
|
comcode = 1;
|
||||||
|
goto diskend;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
diskend:
|
||||||
|
write(cpu2disk, &comcode, 1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Behandlung Alarm-Interrupt
|
||||||
|
*/
|
||||||
|
time_out()
|
||||||
|
{
|
||||||
|
signal(SIGALRM, time_out);
|
||||||
|
timeout++;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* benutzt von Vater und Soehnen
|
||||||
|
*/
|
||||||
|
intrupt(sig)
|
||||||
|
int sig;
|
||||||
|
{
|
||||||
|
int status;
|
||||||
|
|
||||||
|
if (child1 && child2 && child3) { /* Vaterprozess */
|
||||||
|
signal(SIGINT, SIG_IGN); /* ignoriere weiterer SIGINT */
|
||||||
|
kill(child1, SIGINT); /* Soehne beenden */
|
||||||
|
kill(child2, SIGINT);
|
||||||
|
kill(child3, SIGINT);
|
||||||
|
/*
|
||||||
|
wait(&status);
|
||||||
|
wait(&status);
|
||||||
|
wait(&status);
|
||||||
|
*/
|
||||||
|
restty();
|
||||||
|
print();
|
||||||
|
} else /* einer der Sohnprozesse */
|
||||||
|
kill(parent, SIGINT); /* Vater beendet dann alle */
|
||||||
|
/* Soehne und sich selbst */
|
||||||
|
exit(0);
|
||||||
|
}
|
||||||
|
|
||||||
|
main(argc, argv)
|
||||||
|
register argc;
|
||||||
|
register char *argv[];
|
||||||
|
{
|
||||||
|
register char *filname = (char *)0;
|
||||||
|
unsigned oflag;
|
||||||
|
|
||||||
|
pname = argv[0];
|
||||||
|
oflag = O_RDWR;
|
||||||
|
term = getenv("TERM");
|
||||||
|
lp = getenv("WDOS_LP");
|
||||||
|
if (strncmp(term,"w8",2) == 0 || strncmp(term,"W8",2) == 0)
|
||||||
|
termtyp = 1;
|
||||||
|
else if (strncmp(term,"WY",2) == 0)
|
||||||
|
termtyp = 2;
|
||||||
|
else if (strncmp(term,"p8",2) != 0 && strncmp(term,"P8",2) != 0) {
|
||||||
|
printf("%s: Falscher Terminaltyp\n", pname);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
switch (--argc) { /* Kommandozeilen-Argumente auswerten */
|
||||||
|
case 0:
|
||||||
|
filname = "/z/wdoslib/bios.p8";
|
||||||
|
if (termtyp == 1)
|
||||||
|
filname = "/z/wdoslib/bios";
|
||||||
|
if (termtyp == 2)
|
||||||
|
filname = "/z/wdoslib/bios.wy";
|
||||||
|
break;
|
||||||
|
case 1:
|
||||||
|
if ((*++argv)[0] != '-') { /* Optionen ? */
|
||||||
|
filname = *argv; /* Argument ist Dateiname */
|
||||||
|
break;
|
||||||
|
} else {
|
||||||
|
if ((*argv)[1] == 'r') {
|
||||||
|
oflag = O_RDWR | O_NDELAY; /* O_NDELAY hier: */
|
||||||
|
break; /* kein Reset fuer CPU */
|
||||||
|
}
|
||||||
|
}
|
||||||
|
default:
|
||||||
|
printf("Usage: %s [-resume | proto_file]\n", pname);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
if ((cpu2ram = open("/dev/cpu2rram", oflag)) == -1) {
|
||||||
|
printf("%s: kann /dev/cpu2rram nicht oeffnen\n",pname);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
if (filname)
|
||||||
|
load(filname);
|
||||||
|
else
|
||||||
|
setreturn();
|
||||||
|
|
||||||
|
disknames();
|
||||||
|
setdate();
|
||||||
|
|
||||||
|
if ((cpu2tty = open("/dev/cpu2tty", O_RDWR)) == -1) {
|
||||||
|
printf("%s: kann /dev/cpu2tty nicht oeffnen\n", pname);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
if ((cpu2lp = open("/dev/cpu2lp", O_RDONLY)) == -1) {
|
||||||
|
printf("%s: kann /dev/cpu2lp nicht oeffnen\n", pname);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
if ((cpu2disk = open("/dev/cpu2disk", O_RDWR)) == -1) {
|
||||||
|
printf("%s: kann /dev/cpu2disk nicht oeffnen\n",pname);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
settty();
|
||||||
|
signal(SIGALRM, time_out);
|
||||||
|
signal(SIGHUP, intrupt);
|
||||||
|
signal(SIGINT, intrupt);
|
||||||
|
signal(SIGQUIT, intrupt);
|
||||||
|
signal(SIGTERM, intrupt);
|
||||||
|
|
||||||
|
parent = getpid(); /* Prozess-Id dieses Prozesses */
|
||||||
|
if ((child1 = fork()) == 0) /* Sohnprozess 1 */
|
||||||
|
cpu2_to_term();
|
||||||
|
if ((child2 = fork()) == 0) /* Sohnprozess 2 */
|
||||||
|
cpu2_to_lp();
|
||||||
|
if ((child3 = fork()) == 0) /* Sohnprozess 3 */
|
||||||
|
cpu2_disk();
|
||||||
|
term_to_cpu2(); /* Vater */
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* WDOS-BIOS (Datei proto.file)
|
||||||
|
* in den RAM der Erweiterungskarten laden
|
||||||
|
*/
|
||||||
|
load(filname)
|
||||||
|
register char *filname;
|
||||||
|
{
|
||||||
|
register int fdr;
|
||||||
|
register int n_read;
|
||||||
|
|
||||||
|
if ((fdr = open(filname, O_RDONLY)) == -1) {
|
||||||
|
printf("%s: kann %s nicht oeffnen\n", pname, filname);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
fstat(fdr, &stbuf);
|
||||||
|
if ((stbuf.st_mode & S_IFDIR)|| /* ist es ein Directory ? */
|
||||||
|
stbuf.st_size == 0L || /* Test der Laenge */
|
||||||
|
stbuf.st_size > 0x10000L) {
|
||||||
|
printf("%s: Fehler in %s\n", pname, filname);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
/* Datei lesen und zu CPU2-RAM schreiben */
|
||||||
|
lseek(cpu2ram, 0x100000L-stbuf.st_size, 0); /* RAM-Adresse einstellen */
|
||||||
|
while ((n_read = read(fdr, buffer, BUFLEN)) > 0)
|
||||||
|
write(cpu2ram, buffer, n_read);
|
||||||
|
close(fdr); /* Close Files */
|
||||||
|
}
|
||||||
|
/*
|
||||||
|
* Return zu WDOS an CPU2 uebermitteln
|
||||||
|
*/
|
||||||
|
setreturn()
|
||||||
|
{
|
||||||
|
lseek(cpu2ram, 0xfd000L, 0); /* Adresse reset */
|
||||||
|
buffer[0] = 1;
|
||||||
|
write(cpu2ram, buffer, 1);
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Datum fuer CPU2 setzen
|
||||||
|
*/
|
||||||
|
setdate()
|
||||||
|
{
|
||||||
|
register struct tm *tp;
|
||||||
|
long clock;
|
||||||
|
struct tm *localtime();
|
||||||
|
|
||||||
|
lseek(cpu2ram, 0xfd026L, 0); /* Adresse struct dos_date */
|
||||||
|
time(&clock);
|
||||||
|
tp = localtime(&clock);
|
||||||
|
buffer[0] = tp->tm_sec;
|
||||||
|
buffer[1] = tp->tm_min;
|
||||||
|
buffer[2] = tp->tm_hour;
|
||||||
|
buffer[3] = tp->tm_mday;
|
||||||
|
buffer[4] = tp->tm_mon;
|
||||||
|
buffer[5] = tp->tm_year;
|
||||||
|
write(cpu2ram, buffer, 6);
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Ermitteln der gemounteten Disketten aus der Datei $HOME/.dos
|
||||||
|
*/
|
||||||
|
disknames()
|
||||||
|
{
|
||||||
|
register FILE *fp;
|
||||||
|
register i, m;
|
||||||
|
register hd0 = 0;
|
||||||
|
register hd1 = 0;
|
||||||
|
char *p;
|
||||||
|
char *strrchr();
|
||||||
|
|
||||||
|
strcpy(buffer, getenv("HOME"));
|
||||||
|
strcat(buffer, "/.dos");
|
||||||
|
if ((fp = fopen(buffer, "r")) == NULL) {
|
||||||
|
printf("%s: kann %s nicht oeffnen\n", pname,buffer);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
for (i = 0; i < 6; i++) {
|
||||||
|
if (fgets(&mname[6][0], 50, fp) == NULL ||
|
||||||
|
(i < 6 && mname[6][0] != i+'A')) {
|
||||||
|
printf("%s: Fehler in %s\n", pname, buffer);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
mname[6][strlen(mname[6])-1] = 0;
|
||||||
|
if (mname[6][2] == 0)
|
||||||
|
continue;
|
||||||
|
strcpy(mname[i], &mname[6][2]);
|
||||||
|
if (strncmp(&mname[6][2], "/dev/", 5) == 0) {
|
||||||
|
mname[i][5] = 'r'; /* raw-Device benutzen */
|
||||||
|
strcpy(&mname[i][6], &mname[6][7]);
|
||||||
|
}
|
||||||
|
m = 3;
|
||||||
|
if ((p = strrchr(mname[i], '_'))) {
|
||||||
|
if (strncmp(p, "_5", 2) == 0)
|
||||||
|
m = 0;
|
||||||
|
if (strncmp(p, "_10", 3) == 0)
|
||||||
|
m = 1;
|
||||||
|
if (strncmp(p, "_20", 3) == 0)
|
||||||
|
m = 2;
|
||||||
|
}
|
||||||
|
if (i == 2 || i == 3) { /* Harddisk Laufwerke */
|
||||||
|
if (m == 3) {
|
||||||
|
printf("%s: Mount-Fehler Harddisk-Laufwerk %c\n", pname,i+'A');
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
if (i == 2)
|
||||||
|
hd0 = m;
|
||||||
|
else
|
||||||
|
hd1 = m;
|
||||||
|
} else {
|
||||||
|
if (m != 3) {
|
||||||
|
printf("%s: Mount-Fehler Floppy-Laufwerk %c\n", pname,i+'A');
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
fclose(fp);
|
||||||
|
|
||||||
|
lseek(cpu2ram, 0xfd024L, 0); /* Adresse hd0/hd1type */
|
||||||
|
buffer[0] = hd0;
|
||||||
|
buffer[1] = hd1;
|
||||||
|
write(cpu2ram, buffer, 2);
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Ausgabe der Datei /tmp/wdoslp zum Drucker
|
||||||
|
*/
|
||||||
|
print()
|
||||||
|
{
|
||||||
|
if (stat("/tmp/wdoslp", &stbuf) == -1)
|
||||||
|
return; /* keine Daten vorhanden */
|
||||||
|
printf("\nEs wurden %D Byte zum Drucken angesammelt, ausdrucken ? (j/n): ", stbuf.st_size);
|
||||||
|
|
||||||
|
if (getchar() != 'j') {
|
||||||
|
unlink("/tmp/wdoslp");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
system("/z/wdoslib/run_lpr /tmp/wdoslp");
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue