/* ƯÁ¤ º¸·¹ÀÌÆ®¸¦ ±âÀÔÇÒ ¼ö ÀÖ°í(9600, 19200, 57600,,,115200) COMÀ» ¼±ÅÃÇÒ ¼ö ÀÖ°í º¸³»°Å³ª ¹Þ´Â
   ¸ðµå¸¦ ¼±ÅÃÇÒ ¼ö ÀÖ´Â Åë½Å ÇÁ·Î±×·¥ÀÔ´Ï´Ù.
   º¼·£µå¾¾¿¡¼­ ±×´ë·Î ÄÄÆÄÀÏÇÏ°í 'h' (or 'H')¸¦ ÀÔ·ÂÇϸé ÀÚ¼¼ÇÑ µµ¿ò¸»À» º¼ ¼ö ÀÖÁÒ.
   ¸¶ÀÌÅ©·Î ÄÜÆ®·Ñ·¯¸¦ ÀÌ¿ëÇÑ º¸µå³ª ·Îº¿ Åë½Å ÇÁ·Î±×·¥¿¡ À¯¿ëÇÕ´Ï´Ù.
*/


#include<stdio.h>
#include<dos.h>
#include <conio.h>
#include <stdlib.h>
#include <alloc.h>


#define   	TAB           0x09
#define   	ESC           0x1b
#define   	ENTER         0x0d

#define		COM1	 0x3F8    
#define		COM2	 0X2F8
#define 	COM3     0X3E8
#define 	COM4	 0X2E8

#define 	COM1_INT_VECT    0X0C
#define 	COM2_INT_VECT	 0X0B

#define	 	MASKON13     0XEF
#define 	MASKON24     0XF7
#define 	MASKOFF13    0X10
#define 	MASKOFF24    0X08

#define 	FREQ	     1843200L

#define 	PICMASK      0X21
#define 	PICEIO	     0X20

#define     file_size    F000

typedef unsigned char byte;
typedef unsigned int word;


byte *data;
word file_size = 0;

word COM,COM_INT_VECT,MASKON,MASKOFF;


void interrupt (*old_int)();

void Init_Serial(unsigned long Default)
{
	 char	  old_lcr;
	 unsigned int divisor;
	 unsigned char high,low;

	 divisor = (unsigned int)(FREQ/(16L*Default));
	 high = (unsigned char)(divisor >> 8);
	 low = (unsigned char) divisor;

	 old_lcr = inportb(COM+3);
	 outportb(COM+3,old_lcr|0X80);
	 outportb(COM,low);
	 outportb(COM+1,high);
	 old_lcr = inportb(COM+3);
	 outportb(COM+3,old_lcr&0X7F);
}

void interrupt port_interrupt()
{
	 byte in_ch;
	 in_ch = inportb(COM);
	 if(in_ch) data[file_size++] = in_ch;
	 outportb(PICEIO,0X20); /* transmit signal that terminated EIO int OF PIC*/
}

void Init_Com(void)
{
	 unsigned char old_msr,old_imr;

	 old_int = getvect(COM_INT_VECT);
	 setvect(COM_INT_VECT,port_interrupt);

	 outportb(COM+4,0X0B);
	 outportb(COM+1,0X01);

	 old_msr = inportb(COM+6);
	 outportb(COM+6,old_msr | 0X30);
	 old_imr = inportb(PICMASK);
	 outportb(PICMASK,old_imr & MASKON);

	 delay(300);
	 inportb(COM);
	 inportb(COM);
}

void Close_Com(void)
{
	 unsigned char old_imr;

	 outportb(COM+1,0X00);
	 old_imr = inportb(PICMASK);
	 outportb(PICMASK,old_imr | MASKOFF);
	 setvect(COM_INT_VECT,old_int);
	 free(data);

}

void Send_Byte(unsigned char ch)
{
	 while( !(inportb(COM+5)&0X20) );
//	 while(!(inportb(COM+5)&0X40)); //6th bit(TSR:Transfer Shift Register)
	 outportb(COM,ch);             //when TSR is empty, 6th bit is set.
}

void Receive_Byte()
{
	word i;
	char select1;

	while (!kbhit())
	{
		for (i=0; i<file_size; i++)
			cprintf ("%c",data[i]);
			file_size=0;
	}

}

void Default(void)
{
	   unsigned long Default_baud=115200L;
	   unsigned long BAUD_RATE;
	   byte ch;
DASI:
	   ch=getch();
	   if(ch==0) ch=getch()<<8;
	   if((ch==ENTER)) goto Skip_1;
	   else if(ch==TAB) goto Skip_2;
	   else if((ch=='b')||(ch=='B')) goto Skip_3;
	   else if( !((ch==ENTER)||(ch==TAB)||(ch=='h')||(ch=='H')||(ch==ESC))) goto DASI;
	   else if(ch=='h'||ch=='H')
	   {
		  textcolor(LIGHTCYAN);
  cprintf("ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ\r\n");
		  textcolor(WHITE);
		  cprintf("If you want to change '");
		  textcolor(YELLOW);
		  cprintf("COM");
		  textcolor(WHITE);
		  cprintf("', You can use the key '");
		  textcolor(LIGHTGREEN);
		  cprintf("Enter");
		  textcolor(WHITE);
		  cprintf("' or '");
		  textcolor(LIGHTGREEN);
		  cprintf("Tab");
		  textcolor(WHITE);
		  cprintf("'\r\n");
		  cprintf("When you press '");
		  textcolor(LIGHTGREEN);
		  cprintf("Enter");
		  textcolor(WHITE);
		  cprintf("' key on your keyboard, COM will be changed ");
		  textcolor(LIGHTGREEN);
		  cprintf("COM1");
		  textcolor(WHITE);
		  cprintf(".\r\n");
		  cprintf("Otherwise you press '");
		  textcolor(LIGHTGREEN);
		  cprintf("Tab");
		  textcolor(WHITE);
		  cprintf("' key, COM will be changed ");
		  textcolor(LIGHTGREEN);
		  cprintf("COM2");
		  textcolor(WHITE);
		  cprintf(".\r\n");
		  cprintf("Baudrate setting is ");
		  cprintf("'");
		  textcolor(LIGHTRED);
		  cprintf("B");
		  textcolor(WHITE);
		  cprintf("' ");
		  cprintf("or '");
		  textcolor(LIGHTRED);
		  cprintf("b");
		  textcolor(WHITE);
		  cprintf("' ");
		  cprintf("key.(default_baudrate is 115200bps)\r\n");
		  textcolor(LIGHTCYAN);
  cprintf("ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\r\n");
		  goto DASI;
	   }
	   else if(ch==ESC) exit(-1);

Skip_1:

	 textcolor(LIGHTCYAN);
	 cprintf("®COM1?%ldbps", Default_baud);
	 textcolor(WHITE);

	 COM          = COM1;
	 COM_INT_VECT = COM1_INT_VECT;
	 MASKON       = MASKON13;
	 MASKOFF      = MASKOFF13;

	 Init_Serial(Default_baud);
	 Init_Com();
	 return 0;

Skip_2:
	 textcolor(LIGHTCYAN);
	 cprintf("®COM2?%ldbps", Default_baud);
	 textcolor(WHITE);

	 COM          = COM2;
	 COM_INT_VECT = COM2_INT_VECT;
	 MASKON       = MASKON24;
	 MASKOFF      = MASKOFF24;

	 Init_Serial(Default_baud);
	 Init_Com();
	 return 0;

Skip_3:
	 textcolor(LIGHTCYAN);
	 cprintf("Baud_Rate :");
	 scanf("%ul",&BAUD_RATE);
	 Default_baud=BAUD_RATE;
	 textcolor(GREEN);
	 cprintf("Enter press plz.\r\n");

	 goto DASI;

}

void Misc(void)
{
	 textcolor(LIGHTRED);
	 cprintf("\r\nT");
	 textcolor(WHITE);
	 cprintf("ransmit or ");
	 textcolor(LIGHTRED);
	 cprintf("R");
	 textcolor(WHITE);
	 cprintf("eceive ?\r\n");

}

void Demo(void)
{
	unsigned char key;

	textcolor(LIGHTBLUE);
	cprintf("\r\nÚÄÄÄÄÄÄÄ?);
	textcolor(YELLOW);
	cprintf("Serial Communication");
	textcolor(LIGHTBLUE);
	cprintf("ÄÄÄÄÄÄÄÄÄÄ?r\n");
	cprintf("?                                     ?r\n");
	cprintf("?);
	textcolor(LIGHTGREEN);
	cprintf(" H? : Help,           Default=Enter  ");
	textcolor(LIGHTBLUE);
	cprintf("?r\n");
	cprintf("?);
	textcolor(LIGHTGREEN);
	cprintf(" ESC : exit,           B? : baudrate ");
	textcolor(LIGHTBLUE);
	cprintf("?r\n");
	cprintf("ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ\r\n");

	Default();

}

void main (void)
{
	 unsigned char select, select1, out_ch;

	 data = calloc(1,0xf000);
	 Demo();
	 Misc();

	 select = getch();

	 if( select=='r' || select=='R')
	 {
		textcolor(LIGHTGREEN);
		cprintf("You selected Receive operation\r\n");
		textcolor(WHITE);

		while(1)
		{
			if(kbhit())
			{
				select1 = getch();
				if(select1==ESC)
				{
					clrscr();
					cprintf("\r\nDude~ bye bye...  DOL..   ");
					cprintf("by University Of Seoul\r\n");
					break;
				}
			}
			else if((inportb(COM+1)&0x01)) Receive_Byte();
		 }
	 }

	 else if( select=='t' || select=='T')
	 {

		textcolor(LIGHTGREEN);
		cprintf("You selected Transmit operation\r\n");
		textcolor(WHITE);
		while(1)
		{
			out_ch = getch();
			if(out_ch==ESC)
			{
				clrscr();
				cprintf("\r\nDude~ bye bye... DOL..     ");
				cprintf("by University Of Seoul\r\n");
				break;
			}
			else Send_Byte(out_ch);
		 }
	 }

	 Close_Com();

}