/*
** LCR.C Communication Port Test Code
**
** Coded by : James P. Ketrenos
**
** You have permission to use this if you want. You are not required
** to use it. However, if it should cause harm to you, your computer,
** your dog, or anyone/thing you know/have/own, I am not responsible.
**
** By using this, or any file in this archive, you acknowledge that
** fact and accept it.
**
*/
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include "ll_comm.h"
#include "ll_stat.h"
#define VER_ID "0001.3000"
int COM_BASE=0x3F8;
int COM_IRQ=4;
int COM_RATE=57600;
int COM_SET=(BITS_8 | STOP_1 | NO_PARITY);
int COM_FIFO=0;
COMM Port;
int ECHO=0;
int LF=0;
int xpos,ypos=0;
char *screen=(char *)0x000b8000;
ClearIO()
{
int x;
for (x=0; x<80*25*2; x+=2)
{
screen[x]=0;
screen[x+1]=7;
}
xpos=ypos=0;
}
PrintIO(char key)
{
switch (key)
{
case 9:xpos+=10;
if (xpos>160)
{
xpos=0;
ypos++;
if (ypos>24)
{
ClearIO();
ypos=0;
}
}
break;
case 8:xpos-=2;
if (xpos<0) xpos=0;
screen[ypos*160+xpos]=0;
break;
case 13:xpos=0;
break;
case 10:ypos++;
if (ypos>24)
{
ClearIO();
ypos=0;
}
break;
default:screen[ypos*160+xpos]=key;
xpos+=2;
if (xpos>160)
{
xpos=0;
ypos++;
if (ypos>24)
{
ClearIO();
ypos=0;
}
}
}
}
WriteStr(COMM Port, char *str)
{
for (; *str; str++)
ioWriteByte(Port, *str);
}
PrintStr(char *str)
{
for (; *str; str++)
PrintIO(*str);
}
int main(int argc, char *args[])
{
int key,count,prior;
int COM_TEMP;
int Escape=0;
status(ST_RESET,"LCR.LOG");
status(ST_ECHO,"");
status(ST_SHOW,"[ LCR (R) Logical Comm Routines v%s ]",VER_ID);
status(ST_ECHO,"[ Copyright (C) 1994 by J.P.K. ]");
status(ST_ECHO,"");
status(ST_ECHO,"See LCR.NFO for important information.");
status(ST_SHOW,"");
for (count=1; count<argc; count++)
{
if (args[count][0]!='-' && args[count][0]!='/')
{
status(ST_SHOW,"Bad command line. -? for help.");
exit(-1);
}
switch (args[count][1])
{
case 0:
case '?':printf("Usage: LCR [ -[ [[?pbifBS]#] [P[NOEMS]] ] ]\n");
printf("Where: p = Port (HEX) (3E8, 2E8, etc) [3E8]\n");
printf(" b = Baud (DEC) (1 - 115200) [57600]\n");
printf(" i = IRQ (DEC) (0 - 7) [4]\n");
printf(" f = FIFO Buffer (0,1,4,8,14) [0]\n");
printf(" B = Bits Per Word (5-8) [8]\n");
printf(" S = Stop Bits (1-2) [1]\n");
printf(" P = Parity [NONE]\n");
printf(" : None, Odd, Even, Mark, Space\n");
printf("\n");
printf("NOTE: 5 Bits with 1 Stop Bit *may* not work with your\n");
printf(" hardware.\n");
exit(0);
case 'p':sscanf(&args[count][2],"%x",&COM_BASE);
printf("Port set to: 0x%X\n",COM_BASE);
break;
case 'b':sscanf(&args[count][2],"%d",&COM_RATE);
if (COM_RATE < 1 || COM_RATE > 115200)
{
status(ST_SHOW,"Invalid Baud Rate. Valid Range 1 - 115200.");
exit(-1);
}
printf("Baud set to: %d\n",COM_RATE);
break;
case 'i':sscanf(&args[count][2],"%d",&COM_IRQ);
if (COM_IRQ&!0x07)
{
status(ST_SHOW,"Invalid IRQ. Valid Range 0 - 7.");
exit(-1);
}
printf("IRQ set to: %d\n",COM_IRQ);
printf("Interrupt : %d\n",COM_IRQ+8);
break;
case 'f':sscanf(&args[count][2],"%d",&COM_FIFO);
switch (COM_FIFO)
{
case 0:case 1:case 4:case 8:case 14:
break;
default:status(ST_SHOW,"Invalid FIFO. Valid Values (0,1,4,8,14).");
exit(-1);
}
printf("FIFO set to: %d\n",COM_FIFO);
break;
case 'B':sscanf(&args[count][2],"%d",&COM_TEMP);
switch (COM_TEMP)
{
case 5:case 6:case 7:case 8:
COM_SET&=CLEAR_BITS;
COM_SET|=COM_TEMP-5;
break;
default:status(ST_SHOW,"Invalid BIT Size. Valid Range 5 - 8.");
exit(-1);
}
printf("Bits per word set to: %d\n",COM_TEMP);
break;
case 'S':sscanf(&args[count][2],"%d",&COM_TEMP);
switch (COM_TEMP)
{
case 1:case 2:
COM_SET&=CLEAR_STOP;
COM_SET|=(COM_TEMP-1)<<2;
break;
default:status(ST_SHOW,"Invalid STOP Count. Valid Range 1 - 2.");
exit(-1);
}
printf("Stop Bits set to: %d\n",COM_TEMP);
break;
case 'P':COM_TEMP=(int)args[count][2];
switch (COM_TEMP<'a' ? COM_TEMP-'A'+'a' : COM_TEMP)
{
case 'n':
COM_SET&=CLEAR_PARITY;
printf("Parity set to: NONE\n");
break;
case 'o':
COM_SET&=CLEAR_PARITY;
COM_SET|=ODD_PARITY;
printf("Parity set to: ODD\n");
break;
case 'e':
COM_SET&=CLEAR_PARITY;
COM_SET|=EVEN_PARITY;
printf("Parity set to: EVEN\n");
break;
case 'm':
COM_SET&=CLEAR_PARITY;
COM_SET|=MARK_PARITY;
printf("Parity set to: MARK\n");
break;
case 's':
COM_SET&=CLEAR_PARITY;
COM_SET|=SPACE_PARITY;
printf("Parity set to: SPACE\n");
break;
default:status(ST_SHOW,"Invalid PARITY. Valid types:");
status(ST_SHOW," None, Odd, Even, Mark, Stop");
exit(-1);
}
break;
default: status(ST_SHOW,"Bad command line. -? for help.");
exit(-1);
}
}
printf("\n");
status(ST_WRITE,"[ Command Line Parsed ]");
status(ST_WRITE,"Base Port : 0x%X",COM_BASE);
status(ST_WRITE,"Port IRQ : %d",COM_IRQ);
status(ST_WRITE,"Port Interrupt : 0x%X",COM_IRQ+8);
status(ST_WRITE,"FIFO Buffer : %d",COM_FIFO);
status(ST_WRITE,"Baud Rate : %d",COM_RATE);
status(ST_WRITE,"Control Settings : 0x%X",COM_SET);
status(ST_WRITE,"");
switch(COM_BASE)
{
case 0x3E8:case 0x3F8:case 0x2E8:case 0x2F8:
break;
default: status(ST_SHOW,"WARNING: 0x%X unrecognized as standard port base.",COM_BASE);
printf("Are you sure you wish to use it? (y/N)\n");
switch (getche())
{
case 'Y':case 'y':
break;
default:printf("\nExiting...\n");
exit(-1);
}
printf("\n");
while (kbhit()) getch();
}
status(ST_SHOW,"[ Initializing Port ]");
Port=ioOpenPort(COM_BASE, COM_IRQ);
if(!Port)
{
status(ST_SHOW,"Error initalizing port.\n");
return 1;
}
status(ST_WRITE,"Latched Port ID at (struct PortID *)0x%X",Port);
status(ST_WRITE,"");
ioSetBaud(Port, COM_RATE);
ioSetHandShake(Port, DTR | RTS);
ioSetControl(Port, COM_SET);
ioSetMode(Port, BYTE_MODE);
ClearIO();
PrintStr("Initializing Modem . . .\n\r");
WriteStr(Port, "AT&F\r");
while (!Escape)
{
while (!kbhit() && !ioReadStatus(Port));
if (kbhit())
switch (key=getch())
{
case 27: Escape=1;
break;
case 0:case 0xE0:
if (kbhit())
switch (key=getch())
{
case 0x12:ECHO=1-ECHO;
PrintStr("\n\r[ECHO ");
PrintStr(ECHO ? "ON" : "OFF");
PrintStr("]\n\r");
break;
case 0x26:LF=1-LF;
PrintStr("\n\r[LF ");
PrintStr(LF ? "ON" : "OFF");
PrintStr("]\n\r");
break;
case 0x17:WriteStr(Port,"AT&F\r");
break;
case 0x3B:PrintStr("\n\r[ LCR: Help ]\n\r");
PrintStr("ALT-E Toggle ECHO ON/OFF\n\r");
PrintStr("ALT-I Initialize Modem\n\r");
PrintStr("ALT-L Toggle LineFeeds\n\r");
PrintStr("F1 Help\n\r");
PrintStr("F2 Clear Screen\n\r");
PrintStr("F3 Cool message\n\r");
PrintStr("F4 Dial DeadMan' Hand\n\r");
PrintStr("F5 Dial PSU #1\n\r");
PrintStr("F6 Dial PSU #2\n\r");
PrintStr("ESC Exit\n\r");
break;
case 0x3C:ClearIO(); break;
case 0x3D:PrintStr("\n\r[LL is ");
PrintStr(ECHO ? "cool" : "neato");
PrintStr("]\n\r");
break;
case 0x3E:WriteStr(Port, "ATDT9,2889264\r");
break;
case 0x3F:WriteStr(Port,"ATDT54206\r");
break;
case 0x40:WriteStr(Port,"ATDT53144\r");
break;
default: break;
}
break;
default:if (ECHO)
PrintIO(key);
ioWriteByte(Port, key);
break;
}
if (ioReadStatus(Port))
switch (key=ioReadByte(Port))
{
case 27: while (!kbhit() && !ioReadStatus(Port));
if (ioReadByte(Port))
{
if (ioReadByte(Port)=='[')
{
PrintIO('E');
PrintIO('[');
}
}
break;
case 13: if (prior!=10)
PrintIO(10);
PrintIO(prior=13);
break;
default:PrintIO(key);
prior=key;
break;
}
}
status(ST_SHOW,"[ Reseting Port ]");
status(ST_WRITE,"");
ioClosePort(Port);
return 0;
}
