#include "stdio.h"
#include "dos.h"
#include "stdlib.h"

union REGS reg;

int port;

#define in_mtl IN_MTL

/* extern void in_mtl(); */

in_mtl ()
{
	;
}

test_mtl ()
{
int config;
	for (config=0; config<=0xFF; config++)
	{
		reg.h.ah = 0;
		reg.h.al = config;
		reg.x.dx = 0;
		int86 (0x14, &reg, &reg);
		printf ("Config 0x%02X : etat 0x%04X\n", config, reg.x.ax);
/*		getchar(); */
		if ((out_car_mtl(7) & 0x80) == 0)
			printf ("statut out correct pour config 0x%X\n",
				config);
	}
}

test_ports ()
{
int adr;
    for (adr=0x3F8; adr<=0x3FF; adr++)
	printf(" %02X", adr&0xFF);
    printf("\n\n");
    while (!kbhit())
    {
	for (adr=0x3F8; adr<=0x3FF; adr++)
	{
		printf(" %02X",inp(adr));
	}
	printf("\n");
    }
    while (!kbhit())
	outp(0x3F8,random(0x100));
}

init_mtl()
{
	reg.h.ah = 0;
/*	reg.h.al = 0x82; */
/*	printf ("Config ? "); scanf ("%x", &(reg.h.al)); */
/*	printf ("Port ? ") ; scanf ("%x", &port); */
	reg.h.al = 0x9A;
	port = 0;
	reg.x.dx = port;
	int86 (0x14, &reg, &reg);
	printf ("Etat : 0x%X\n", reg.x.ax);
	out_car_mtl_1(0);
}

int delai;

out_car_mtl (char c)
{
int parite, bit, i;
	parite = 1;
	for (bit=0; bit<=7; bit++)
		parite ^= ((c>>bit)&1);
	outp(0x3F8,c|(parite<<7));
	for (i=0; i<=delai; i++);
}

char in_car_mtl ()
{
char c;
int adr;
	while ((inp(0x3FD) & 8) == 0)
	{
	printf("0");
	for (adr=0x3F8; adr<=0x3FF; adr++)
	{
		printf(" %02X",inp(adr));
	}
	printf("\n");
	}
	/* c = inp(0x3F8); */
	while ((inp(0x3FD) & 8) != 0)
	{
	printf("1");
	for (adr=0x3F8; adr<=0x3FF; adr++)
	{
		printf(" %02X",inp(adr));
	}
	printf("\n");
	}
	c = inp(0x3F8);
	printf(" %X",c);
	return c;
}

out_car_mtl_1 (char c)
{
	printf ("Out 0x%X ",c);
	reg.h.ah = 1;
	reg.h.al = c;
	reg.x.dx = port;
	int86 (0x14, &reg, &reg);
	printf ("Statut out : 0x%X\n",reg.h.ah);
	return reg.h.ah;
}

char in_car_mtl_1 ()
{
	reg.h.ah = 2;
	reg.x.dx = port;
	int86 (0x14, &reg, &reg);
	printf ("Statut in : 0x%X\n", reg.x.ax);
	return reg.h.al;
}

out_ch_mtl (char *s)
{
	while (*s)
		out_car_mtl(*s++);
}

char in_ch_mtl (char *s)
{
char c;
	for (;;)
	{
		if (kbhit()) break;
		c = in_car_mtl();
		if (c == 19)
		{
			*s = 0;
			return in_car_mtl();
		}
		*s++ = c;
	}
}

main1 ()
{
char r[100];
char c;
int i;
	/* test_mtl(); */
    for (;;)
    {
	printf ("Commande ? ");
	scanf("%s",r);
	switch (r[0])
	{
	case 'q' : exit(0);
	case 'T' : test_mtl(); break;
	case 't' :
	test_ports();
		break;
	case 'c' :
	init_mtl();
		break;
	case 'b' :
	out_ch_mtl("Bonjour !\r\n");
		break;
	case 'o' :
		scanf("%x",&c);
		outp(0x3F8,c);
		break;
	case 'O' :
		c=0x20;
		loop:
			outp(0x3F8,c);
			for (i=0; i<delai; i++);
			outp(0x3F8,c|0x80);
			for (i=0; i<delai; i++);
			c++;
			if (c<0x7F) goto loop;
		break;
	case 'r' :
            while (!kbhit())
		outp(0x3F8,random(0x100));
	    break;
	case 'i' :
	in_ch_mtl(r);
	printf("Vous avez tape : <%s>\n",r);
		break;
	case 'I' :
		in_mtl(r);
		printf ("Vous avez tape : %X %X\n", r[0], r[1]);
		break;
	case 'd' :
		scanf ("%d",&delai);
		break;
	default:
		printf("q t c b o i d\n");
	}
    }
}

main (int argc, char *argv[])
{
FILE *f;
char buf_filename[256];
char *filename;
char c;
char buf[50];
	delai = 1700 * (1200 / 75);
	printf ("Delai ? ");
	gets (buf);
	if (*buf) sscanf (buf, "%d", &delai);
	init_mtl ();
	/* out_ch_mtl("\r\nPort serie initialise pour Minitel.\r\n"); */
	if (argc <= 1)
	{
		printf ("Fichier ? ");
		filename = buf_filename;
		gets (filename);
	}
	else
		filename = argv[1];
	f = fopen (filename, "rb");
	if (f == NULL)
	{
		printf ("Fichier %s inaccessible.", filename);
		return;
	}
	for (;;)
	{
		if (kbhit())
		{
			c = getchar();
			if (c == 'q') break;
		}
		c = getc(f);
		if (feof(f)) break;
		out_car_mtl(c);
	}
	fclose(f);
}