#include <reg52.h> /* special function register 8052 */
#define OLEN 8 /* size of serial transmission buffer */
unsigned char ostart; /* transmission buffer start index */
unsigned char oend; /* transmission buffer end index */
idata char outbuf[OLEN]; /* storage for transmission buffer */
//unsigned char otask = 0xff; /* task number of output task */
#define ILEN 8 /* size of serial receiving buffer */
unsigned char istart; /* receiving buffer start index */
unsigned char iend; /* receiving buffer end index */
idata char inbuf[ILEN]; /* storage for receiving buffer */
//unsigned char itask = 0xff; /* task number of output task */
#define CTRL_Q 0x11 /* Control+Q character code */
#define CTRL_S 0x13 /* Control+S character code */
bit sendfull; /* flag: marks transmit buffer full */
bit sendactive; /* flag: marks transmitter active */
bit sendstop; /* flag: marks XOFF character */
/****************************************************************************/
/* putbuf: write a character to SBUF or transmission buffer */
/****************************************************************************/
putbuf (char c) {
if (!sendfull) { /* transmit only if buffer not full */
if (!sendactive && !sendstop) { /* if transmitter not active: */
sendactive = 1; /* transfer the first character direct*/
SBUF = c; /* to SBUF to start transmission */
}
else { /* otherwize: */
outbuf[oend++ & (OLEN-1)] = c; /* transfer char to transmission buffr*/
if (((oend ^ ostart) & (OLEN-1)) == 0) sendfull = 1;
} /* set flag if buffer is full */
}
}
/****************************************************************************/
/* putchar: interrupt controlled putchar function */
/****************************************************************************/
char putchar (char c) {
if (c == '\n') { /* expand new line character: */
putbuf (0x0D); /* send CR before LF for <new line> */
}
/****************************************************************************/
/* serial: serial receiver / transmitter interrupt */
/****************************************************************************/
serial () interrupt 4 using 1 { /* use registerbank 1 for interrupt */
unsigned char c;
bit start_trans = 0;
if (RI) { /* if receiver interrupt */
c = SBUF; /* read character */
RI = 0; /* clear interrupt request flag */
switch (c) { /* process character */
case CTRL_S:
sendstop = 1; /* if Control+S stop transmission */
break;
case CTRL_Q:
start_trans = sendstop; /* if Control+Q start transmission */
sendstop = 0;
break;
default: /* read all other characters into inbuf*/
if (istart + ILEN != iend) {
inbuf[iend++ & (ILEN-1)] = c;
}
break;
}
}
if (TI || start_trans) { /* if transmitter interrupt */
TI = 0; /* clear interrupt request flag */
if (ostart != oend) { /* if characters in buffer and */
if (!sendstop) { /* if not Control+S received */
SBUF = outbuf[ostart++ & (OLEN-1)]; /* transmit character */
sendfull = 0; /* clear 'sendfull' flag */
/* if task waiting: signal ready */
// if (otask != 0xFF) isr_send_signal (otask);
}
}
else sendactive = 0; /* if all transmitted clear 'sendactive*/
}