home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
292.lha
/
TinyTerm
/
termxfr.c
< prev
Wrap
C/C++ Source or Header
|
1992-09-02
|
7KB
|
316 lines
#include "term.h"
UBYTE SOH = 1;
UBYTE EOT = 4;
UBYTE ACK = 6;
UBYTE DLE = 16;
UBYTE NAK = 21;
UBYTE CAN = 24;
UBYTE ProtoInit = 'W';
UBYTE DataBuffer[2048];
USHORT iDataBuffer;
USHORT Crc16, Timeout, TimeoutRetry, Abort;
USHORT CrcTable[256] =
{
0x0000,0x1021,0x2042,0x3063,0x4084,0x50a5,0x60c6,0x70e7,
0x8108,0x9129,0xa14a,0xb16b,0xc18c,0xd1ad,0xe1ce,0xf1ef,
0x1231,0x0210,0x3273,0x2252,0x52b5,0x4294,0x72f7,0x62d6,
0x9339,0x8318,0xb37b,0xa35a,0xd3bd,0xc39c,0xf3ff,0xe3de,
0x2462,0x3443,0x0420,0x1401,0x64e6,0x74c7,0x44a4,0x5485,
0xa56a,0xb54b,0x8528,0x9509,0xe5ee,0xf5cf,0xc5ac,0xd58d,
0x3653,0x2672,0x1611,0x0630,0x76d7,0x66f6,0x5695,0x46b4,
0xb75b,0xa77a,0x9719,0x8738,0xf7df,0xe7fe,0xd79d,0xc7bc,
0x48c4,0x58e5,0x6886,0x78a7,0x0840,0x1861,0x2802,0x3823,
0xc9cc,0xd9ed,0xe98e,0xf9af,0x8948,0x9969,0xa90a,0xb92b,
0x5af5,0x4ad4,0x7ab7,0x6a96,0x1a71,0x0a50,0x3a33,0x2a12,
0xdbfd,0xcbdc,0xfbbf,0xeb9e,0x9b79,0x8b58,0xbb3b,0xab1a,
0x6ca6,0x7c87,0x4ce4,0x5cc5,0x2c22,0x3c03,0x0c60,0x1c41,
0xedae,0xfd8f,0xcdec,0xddcd,0xad2a,0xbd0b,0x8d68,0x9d49,
0x7e97,0x6eb6,0x5ed5,0x4ef4,0x3e13,0x2e32,0x1e51,0x0e70,
0xff9f,0xefbe,0xdfdd,0xcffc,0xbf1b,0xaf3a,0x9f59,0x8f78,
0x9188,0x81a9,0xb1ca,0xa1eb,0xd10c,0xc12d,0xf14e,0xe16f,
0x1080,0x00a1,0x30c2,0x20e3,0x5004,0x4025,0x7046,0x6067,
0x83b9,0x9398,0xa3fb,0xb3da,0xc33d,0xd31c,0xe37f,0xf35e,
0x02b1,0x1290,0x22f3,0x32d2,0x4235,0x5214,0x6277,0x7256,
0xb5ea,0xa5cb,0x95a8,0x8589,0xf56e,0xe54f,0xd52c,0xc50d,
0x34e2,0x24c3,0x14a0,0x0481,0x7466,0x6447,0x5424,0x4405,
0xa7db,0xb7fa,0x8799,0x97b8,0xe75f,0xf77e,0xc71d,0xd73c,
0x26d3,0x36f2,0x0691,0x16b0,0x6657,0x7676,0x4615,0x5634,
0xd94c,0xc96d,0xf90e,0xe92f,0x99c8,0x89e9,0xb98a,0xa9ab,
0x5844,0x4865,0x7806,0x6827,0x18c0,0x08e1,0x3882,0x28a3,
0xcb7d,0xdb5c,0xeb3f,0xfb1e,0x8bf9,0x9bd8,0xabbb,0xbb9a,
0x4a75,0x5a54,0x6a37,0x7a16,0x0af1,0x1ad0,0x2ab3,0x3a92,
0xfd2e,0xed0f,0xdd6c,0xcd4d,0xbdaa,0xad8b,0x9de8,0x8dc9,
0x7c26,0x6c07,0x5c64,0x4c45,0x3ca2,0x2c83,0x1ce0,0x0cc1,
0xef1f,0xff3e,0xcf5d,0xdf7c,0xaf9b,0xbfba,0x8fd9,0x9ff8,
0x6e17,0x7e36,0x4e55,0x5e74,0x2e93,0x3eb2,0x0ed1,0x1ef0,
};
#define DoCrc(x) (Crc16 = CrcTable[x ^ (Crc16 >> 8)] ^ (Crc16 << 8))
UBYTE ReadProtocol(void)
{
ULONG signal;
UBYTE data;
data = NULL;
TimerIO.tr_node.io_Command = TR_ADDREQUEST;
TimerIO.tr_node.io_Flags = 0; /*IOF_QUICK;*/
TimerIO.tr_time.tv_secs = 10;
TimerIO.tr_time.tv_micro = 0;
SendIO((struct IORequest *)&TimerIO);
Timeout = FALSE;
signal = Wait(TimeSignal|ScreenSignal|ReadSignal);
if (signal & TimeSignal)
{
Prints("Timeout.....\n");
TimeoutRetry--;
Timeout = TRUE;
}
if (signal & ReadSignal)
{
AbortIO((struct IORequest *)&TimerIO);
Wait(TimeSignal);
WaitIO((struct IORequest *)ReadReq);
data = ReadData[0];
SendIO((struct IORequest *)ReadReq);
}
if (signal & ScreenSignal)
{
Prints("User Abort!!!!\n");
AbortIO((struct IORequest *)&TimerIO);
Wait(TimeSignal);
Abort = TRUE;
}
if ((ProtoInit == 'W') && (data == DLE))
data = ReadProtocol() ^ 0x40;
return (data);
}
void DownLoad(void)
{
FILE *File;
char *FileName;
USHORT Realblk;
UBYTE c, blknum, blkack;
UBYTE DispBuffer[80];
USHORT State, EOTcnt, EOTrequired;
#define BLKNUM 0
#define INVBLK 1
#define TEXT 2
#define CRC1 3
#define CRC2 4
#define SYNCUP 5
#define MAXFILES 10
if (!GetFile(w, &FileName))
{
Prints("Download Cancelled\n");
return;
}
File = fopen(FileName, "wb");
if (File == NULL)
{
Prints("Cannot open ");
Prints(FileName);
Prints("\n");
return;
}
Prints("Output file = ");
Prints(FileName);
Prints("\n");
iDataBuffer = 0;
Prints("Starting Download\n");
TimeoutRetry = 2;
while (TimeoutRetry || (ProtoInit != NAK))
{
WriteSerial(&ProtoInit, 1);
c = ReadProtocol();
if (c == SOH)
break;
if (TimeoutRetry == 0)
{
if (ProtoInit == 'W')
{
Prints("Switching to CRC\n");
ProtoInit = 'C';
TimeoutRetry = 2;
}
else if (ProtoInit == 'C')
{
Prints("Switching to Checksum\n");
ProtoInit = NAK;
TimeoutRetry = 2;
}
}
}
blknum =
Realblk = 1;
TimeoutRetry = 4;
Abort = FALSE;
State = BLKNUM;
if (ProtoInit == 'W')
EOTrequired = 2;
else
EOTrequired = 1;
EOTcnt = 0;
if (c != SOH)
State = SYNCUP;
for (;;)
{
c = ReadProtocol();
if (TimeoutRetry == 0)
goto finish;
if (Timeout)
{
WriteSerial(&NAK, 1);
blkack = blknum & 3;
if (ProtoInit == 'W')
WriteSerial(&blkack, 1);
State = SYNCUP;
continue;
}
else
TimeoutRetry = 4;
switch (State)
{
case BLKNUM:
if (c == blknum)
State = INVBLK;
else
{
Prints("Block Num Error\n");
State = SYNCUP;
}
break;
case INVBLK:
Crc16 = 0;
if (c == ~blknum)
State = TEXT;
else
{
Prints("Inverse Block Num Error\n");
State = SYNCUP;
}
break;
case TEXT:
DataBuffer[iDataBuffer++] = c;
if (ProtoInit == NAK)
Crc16 = (Crc16 + c) & 0xff;
else
DoCrc(c);
if ((iDataBuffer % 128) == 0)
{
if (ProtoInit == NAK)
State = CRC2;
else
State = CRC1;
}
break;
case CRC1:
if (ProtoInit == NAK)
Crc16 = (Crc16 + c) & 0xff;
else
DoCrc(c);
State = CRC2;
break;
case CRC2:
if (ProtoInit == NAK)
Crc16 -= c;
else
DoCrc(c);
if (Abort)
{
c = NULL;
goto finish;
}
if (Crc16 == 0)
{
WriteSerial(&ACK, 1);
if (ProtoInit == 'W')
{
blkack = blknum & 3;
WriteSerial(&blkack, 1);
}
sprintf( DispBuffer
, "\rBlock %d"
, Realblk);
Prints(DispBuffer);
blknum++;
Realblk++;
}
else
{
WriteSerial(&NAK, 1);
if (ProtoInit == 'W')
{
blkack = blknum & 3;
WriteSerial(&blkack, 1);
}
sprintf( DispBuffer
, "\nError Block %d"
, Realblk);
Prints(DispBuffer);
}
State = SYNCUP;
break;
case SYNCUP:
if (Abort)
goto finish;
if (c == EOT)
{
WriteSerial(&ACK, 1);
if (++EOTcnt == EOTrequired)
goto finish;
break;
}
EOTcnt = 0;
if (c == SOH)
{
State = BLKNUM;
if (iDataBuffer >= sizeof(DataBuffer))
{
fwrite( DataBuffer
, 1
, iDataBuffer
, File);
iDataBuffer = 0;
}
}
if (c == CAN)
goto finish;
break;
}
}
finish:
if (c == EOT)
Prints("\nDownload Complete\n");
else
{
Prints("\nAborting\n");
WriteSerial(&CAN, 1);
WriteSerial(&CAN, 1);
}
if (iDataBuffer)
fwrite(DataBuffer, 1, iDataBuffer, File);
fclose(File);
}
void UpLoad(void)
{
;
}