From: "smile773" <smile773 AT bigfoot DOT com>
Newsgroups: comp.os.msdos.djgpp
References: <LQ4e5.92576$ef6 DOT 1256813 AT news1 DOT rdc1 DOT ab DOT home DOT com>
Subject: Re: comunicating PC -> Basic Stamp 2 ????? help
Lines: 106
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Message-ID: <IV6e5.10398$o71.661365@bgtnsc04-news.ops.worldnet.att.net>
Date: Sat, 22 Jul 2000 01:37:44 GMT
NNTP-Posting-Host: 12.72.5.202
X-Complaints-To: abuse AT worldnet DOT att DOT net
X-Trace: bgtnsc04-news.ops.worldnet.att.net 964229864 12.72.5.202 (Sat, 22 Jul 2000 01:37:44 GMT)
NNTP-Posting-Date: Sat, 22 Jul 2000 01:37:44 GMT
Organization: AT&T Worldnet
To: djgpp AT delorie DOT com
DJ-Gateway: from newsgroup comp.os.msdos.djgpp
Reply-To: djgpp AT delorie DOT com


 /* Name       : Sample Comm's Program - 1024 Byte Buffer - buff1024.c   */
 /* Written By : Craig Peacock <cpeacock AT senet DOT com DOT au>                   */

 /*       Copyright 1997 CRAIG PEACOCK <cpeacock AT senet DOT com DOT au>           */

 /*         See http://www.senet.com.au/~cpeacock/serial1.htm            */
 /*                       For More Information                           */

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

#define PORT1 0x3F8  /* Port Address Goes Here */
#define INTVECT 0x0C /* Com Port's IRQ here (Must also change PIC setting)
*/

  /* Defines Serial Ports Base Address */
  /* COM1 0x3F8                        */
  /* COM2 0x2F8          */
  /* COM3 0x3E8          */
  /* COM4 0x2E8          */

int bufferin = 0;
int bufferout = 0;
char ch;
char buffer[1025];

void interrupt (*oldport1isr)();

void interrupt PORT1INT()  /* Interrupt Service Routine (ISR) for PORT1 */
{
 int c;
 do { c = inportb(PORT1 + 5);
      if (c & 1) {buffer[bufferin] = inportb(PORT1);
    bufferin++;
    if (bufferin == 1024) {bufferin = 0;}}
    }while (c & 1);
 outportb(0x20,0x20);
}

void main(void)
{
 int c;
 outportb(PORT1 + 1 , 0);        /* Turn off interrupts - Port1 */

 oldport1isr = getvect(INTVECT); /* Save old Interrupt Vector of later
        recovery */

 setvect(INTVECT, PORT1INT);     /* Set Interrupt Vector Entry */
     /* COM1 - 0x0C */
     /* COM2 - 0x0B */
     /* COM3 - 0x0C */
     /* COM4 - 0x0B */

 /*         PORT 1 - Communication Settings         */

 outportb(PORT1 + 3 , 0x80);  /* SET DLAB ON */
 outportb(PORT1 + 0 , 0x0C);  /* Set Baud rate - Divisor Latch Low Byte */
         /* Default 0x03 =  38,400 BPS */
         /*         0x01 = 115,200 BPS */
         /*         0x02 =  57,600 BPS */
         /*         0x06 =  19,200 BPS */
         /*         0x0C =   9,600 BPS */
         /*         0x18 =   4,800 BPS */
         /*         0x30 =   2,400 BPS */
 outportb(PORT1 + 1 , 0x00);  /* Set Baud rate - Divisor Latch High Byte */
 outportb(PORT1 + 3 , 0x03);  /* 8 Bits, No Parity, 1 Stop Bit */
 outportb(PORT1 + 2 , 0xC7);  /* FIFO Control Register */
 outportb(PORT1 + 4 , 0x0B);  /* Turn on DTR, RTS, and OUT2 */

 outportb(0x21,(inportb(0x21) & 0xEF));  /* Set Programmable Interrupt
Controller */
      /* COM1 (IRQ4) - 0xEF  */
      /* COM2 (IRQ3) - 0xF7  */
      /* COM3 (IRQ4) - 0xEF  */
      /* COM4 (IRQ3) - 0xF7  */

 outportb(PORT1 + 1 , 0x01);  /* Interrupt when data received */

 printf("\nSample Comm's Program. Press ESC to quit \n");

 do {

     if (bufferin != bufferout){ch = buffer[bufferout];
    bufferout++;
    if (bufferout == 1024) {bufferout = 0;}
    printf("%c",ch);}

     if (kbhit()){c = getch();
    outportb(PORT1, c);}

    } while (c !=27);

 outportb(PORT1 + 1 , 0);       /* Turn off interrupts - Port1 */
 outportb(0x21,(inportb(0x21) | 0x10));  /* MASK IRQ using PIC */
      /* COM1 (IRQ4) - 0x10  */
      /* COM2 (IRQ3) - 0x08  */
      /* COM3 (IRQ4) - 0x10  */
      /* COM4 (IRQ3) - 0x08  */
 setvect(INTVECT, oldport1isr); /* Restore old interrupt vector */

}