dser2_bp.cpp

its creates virtual multi tasking i DOS

/*******************************************************
 *                                                     *
 *  Program : DSER2_BP     Language : Borland C++      *
 *                                                     *
 *  Modified : 20 nov 2003                             *
 *                                                     *
 *  Copyright (c) 1988,2003, ORITECH    V 5.1          *
 *  All rights reserved.                               *
 *                                                     *
 *******************************************************
 *                                                     *
 *  DSER2_BP.CPP     Demo EasyTask      DPMI16         *
 *                                                     *
 *******************************************************/

#include <stdlib.h>
#include <stdio.h>
#include <graphics.h>
#include <dos.h>
#include <conio.h>
#include <string.h>
#include <float.h> 
#include <math.h> 
#include <time.h>
#include <malloc.h>
#include "etlib.h"

PMultiTask t1,t2,t3;
int speed,wide,bitstop,parity,out1,out2,loop,charbyte;
byte b;
char so[128];

#define g 3

void drawwindow(int x1,int y1,int x2,int y2,char *titre)
{
  int n;
  
  window(x1,y1,x2,y2+1);
  clrscr();
  gotoxy(1,1);
  sprintf(so,"%c",201);  
  cprintf(so);
  for (n=x1+1;n<=x2-1;n++) 
  {
    sprintf(so,"%c",205);
    cprintf(so);
  }
  sprintf(so,"%c",187);
  cprintf(so);
  for (n=2;n<=y2-y1;n++)
  {
    gotoxy(1,n); 
    sprintf(so,"%c",186);
    cprintf(so);
    gotoxy(x2-x1+1,n); 
    sprintf(so,"%c",186);
    cprintf(so);
  }
  gotoxy(1,y2-y1+1);
  sprintf(so,"%c",200);
  cprintf(so);
  for (n=x1+1;n<=x2-1;n++) 
  {
    sprintf(so,"%c",205);
    cprintf(so);
  }
  sprintf(so,"%c",188);
  cprintf(so);
  gotoxy(((x2-x1) / 2)-(strlen(titre) / 2),1);
  sprintf(so,"%s",titre);
  cprintf(so);
  window(x1+1,y1+1,x2-1,y2-1);
}
  
void receive1(pvoid,pvoid)
{
  char c;
  int err;

  pausemode(MTT);
  drawwindow(1,8,80,13,"RECEIVE COM2");
  do
  {
    c = getserial(g,1,pause,0,err);
    sprintf(so,"%c",c);
    cprintf(so);
    if (charbyte != 0)
    { 
      sprintf(so,"=%i",c);
      cprintf(so); 
    }
  } while (TRUE);
}

void emit(pvoid,pvoid)
{
  BOOL keyfunc,upper;
  char keychar;
  char s[256];
  int n;
  int err;
  
  pausemode(MTT);
  drawwindow(1,1,80,6,"EMIT COM2");
  strcpy(s,"azertyuiop");
  for (n=1;n<=20;n++)
  {
    writeserial(g,1,s,pause,0,err);
    sprintf(so,"%s",s);
    cprintf(so);
    pause();
  }
  upper = FALSE;
  do
  {
    areadkey(&keyfunc,&keychar,upper);
    sprintf(so,"bufout=%d\n\r",LenSerialBufOut(g,1,err));
    //cprintf(so);
    if (keychar==27) killalltasks();
    else
    {
      putserial(g,1,keychar,pause,0,err);
    }
    sprintf(so,"%c",keychar);
    cprintf(so);
    if (keychar==13)
    {
      sprintf(so,"%c",10);
      cprintf(so);
      putserial(g,1,10,pause,0,err);
    }
  } while (TRUE);
}

void main(void)
{
  int err;
  
  etker_init();
  etser_init();
  clrscr();
  drawwindow(1,16,80,24,"SETUP DSER2");
  cprintf("Speed:"); cscanf("%d",&speed);
  cprintf("\nWide (6,7,8):"); cscanf("%d",&wide);
  cprintf("\nbitstop (0,1,2):"); cscanf("%d",&bitstop);
  cprintf("\nparity (0,1,2):"); cscanf("%d",&parity);
  cprintf("\nchar->byte (1,0):"); cscanf("%d",&charbyte);
  //
  openserial(g,1,256,256,COM2,err);
  resetserial(g,1,speed,wide,bitstop,parity,0,err);
  //
  t1 = newtask(receive1,8000,1,MT_CHILD,NULL,0,NULL);
  t3 = newtask(emit,8000,1,MT_CHILD,NULL,0,NULL);
  waitnotask();
  //
  disposeserial();
}