22.c

冒泡排序

#include <dos.h>
#include <bios.h>
#include <stdio.h>
#include <math.h>
#include <conio.h>
#include <graphics.h>
#ifdef __cplusplus
    #define __CPPARGS ...
#else
    #define __CPPARGS
#endif
#define SER_RBF        0  
#define SER_THR        0  
#define SER_IER        1    
#define SER_IIR        2    
#define SER_LCR        3  
#define SER_MCR        4    
#define SER_LSR        5    
#define SER_MSR        6    
#define SER_DLL        0    
#define SER_DLH        1    

#define SER_BAUD_1200  96  
#define SER_BAUD_2400  48
#define SER_BAUD_9600  12
#define SER_BAUD_19200  6
#define SER_GP02        8    
#define COM_1          0x3F8 
#define COM_2          0x2F8 /*/ base port address of port 1*/
#define COM_3          0x3E8
#define COM_4          0x2E8
#define SER_STOP_1      0    /*/ 1 stop bit per character*/
#define SER_STOP_2      4    /*/ 2 stop bits per character*/
#define SER_BITS_5      0    /*/ send 5 bit characters*/
#define SER_BITS_6      1    /*/ send 6 bit characters*/
#define SER_BITS_7      2    /*/ send 7 bit characters*/
#define SER_BITS_8      3    /*/ send 8 bit characters*/
#define SER_PARITY_NONE 0    /*/ no parity*/
#define SER_PARITY_ODD  8    /*/ odd parity*/
#define SER_PARITY_EVEN 24    /*/ even parity*/
#define SER_DIV_LATCH_ON 128  /*/ used to turn reg 0,1 into divisor latch*/
#define PIC_IMR    0x21  /*/ pic's interrupt mask reg.*/
#define PIC_ICR    0x20  /*/ pic's interupt control reg.*/
#define INT_SER_PORT_0    0x0C  /*/ port 0 interrupt com 1 & 3*/
#define INT_SER_PORT_1    0x0B  /*/ port 0 interrupt com 2 & 4*/
#define SERIAL_BUFF_SIZE 128    /*/ current size of circulating receive buffer*/

void interrupt far (*Old_Isr)(__CPPARGS);  /*/ holds old com port interrupt handler*/

char ser_buffer[SERIAL_BUFF_SIZE];  /*/ the receive buffer*/

int ser_end = -1,ser_start=-1;      /*/ indexes into receive buffer*/
int ser_ch, char_ready=0;          /*/ current character and ready flag*/
int old_int_mask;                  /*/ the old interrupt mask on the PIC*/
int open_port;                      /*/ the currently open port*/
int serial_lock = 0;                /*/ serial ISR semaphore so the buffer*/
        /*/ isn't altered will it is being written*/
                                    /*/ to by the ISR*/


/*-------------写串口-----------------*/  
void interrupt far Serial_Isr(__CPPARGS)
{
serial_lock = 1;
ser_ch = inp(open_port + SER_RBF);
if (++ser_end > SERIAL_BUFF_SIZE-1)
    ser_end = 0;
ser_buffer[ser_end] = ser_ch;

++char_ready;
outp(PIC_ICR,0x20);
serial_lock = 0;

} 


int Ready_Serial()
{
return(char_ready);

} 

/*--------------读串口--------------*/

int Serial_Read()
{
int ch;
while(serial_lock){}
if (ser_end != ser_start)
  {
  if (++ser_start > SERIAL_BUFF_SIZE-1)
      ser_start = 0;
  ch = ser_buffer[ser_start];
  printf("%x",ch);
  if (char_ready > 0)
      --char_ready;
  return(ch);

  } 
else
  return(0);

} 

/*--------------写串口-----------------*/
Serial_Write(char ch)
{
while(!(inp(open_port + SER_LSR) & 0x20)){}
asm cli
outp(open_port + SER_THR, ch);
asm sti
}

/*-----------初始化串口---------------*/
Open_Serial(int port_base, int baud, int configuration)
{
open_port = port_base;
disable();
outp(port_base + SER_LCR, SER_DIV_LATCH_ON);
outp(port_base + SER_DLL, baud);
outp(port_base + SER_DLH, 0);
outp(port_base + SER_LCR, configuration);
outp(port_base + SER_MCR, SER_GP02);
outp(port_base + SER_IER, 1);
if (port_base == COM_1 || port_base==COM_3)
  {
  Old_Isr = _dos_getvect(INT_SER_PORT_0);
  _dos_setvect(INT_SER_PORT_0, Serial_Isr);
  printf("\nOpening Communications Channel Com Port #1/3...\n");

  }
else
  {
  Old_Isr = _dos_getvect(INT_SER_PORT_1);
  _dos_setvect(INT_SER_PORT_1, Serial_Isr);
  printf("\nOpening Communications Channel Com Port #2/4...\n");
  }
old_int_mask = inp(PIC_IMR);
outp(PIC_IMR, (port_base==COM_1) ? (old_int_mask & 0xEF) : (old_int_mask & 0xF7 ));
enable();
}
/*-------------关闭串口--------------*/
Close_Serial(int port_base)
{
outp(port_base + SER_MCR, 0);
outp(port_base + SER_IER, 0);
outp(PIC_IMR, old_int_mask );
if (port_base == COM_1)
  {
  _dos_setvect(INT_SER_PORT_0, Old_Isr);
  printf("\nClosing Communications Channel Com Port #1.\n");
  }
else
  {
  _dos_setvect(INT_SER_PORT_1, Old_Isr);
  printf("\nClosing Communications Channel Com Port #2.\n");
  }

} 

/*-------------发送应用----------------*/

void main(int argc,char *argv[])
{

char ch,press;
int done=0;
FILE *fp;
argc=2;
//argv[1]="c:\\comfile.c";
if(argc<2)
{
  printf("\nUsage:display filename.wav!!!");
// exit(1);
}
if((fp=fopen(argv[1],"r+b"))==NULL)
{
  printf("cannot open the file\n");
// exit(0);
}
fseek(fp, 0, SEEK_SET);
Open_Serial(COM_1,SER_BAUD_9600,SER_PARITY_EVEN| SER_BITS_8 | SER_STOP_1);
printf("com:1;bps:9600;parity:even;bits:8;stop bit:1");
printf("press any key to begin sending");
getch();
//Serial_Write('');  //该语句可用于发送单个字符

while(!done&&ch != EOF)          //发送文件开始
    {
ch = fgetc(fp);
//if(ch==EOF) Serial_Write(27);
Serial_Write(ch);
delay(30);
if (kbhit())
{
  press=getch();
  if (press==27)
  {
  Serial_Write(27);
  done=1;
  }
} 
    }  


Close_Serial(COM_1);
fclose(fp);
}