www.pudn.com > pccp047.zip > XMCRC1KR.C

/*	Copyright (C) 1992 Peter Edward Cann, all rights reserved. 
 *	MicroSoft QuickC: >qcl term.c graphics.lib 
 */ 
 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include"port.h" 
 
#define NAK 21 
#define ACK 6 
#define SOH 1 
#define STX 2 
#define EOT 4 
#define CAN 24 
 
sendchar(c) 
	unsigned char c; 
	{ 
	while(!((inp(basereg+STATREG)&TXMTMASK)&&(inp(basereg+MSTATREG)&CTSMASK))); 
	outp(basereg, c); 
	} 
 
int follow; 
 
int rcharto(ticks) 
	int ticks; 
	{ 
	long tstamp, tstamp1, dayofticksp; 
	int c; 
	_bios_timeofday(_TIME_GETCLOCK, &tstamp); 
	dayofticksp=0; 
	while(1) 
		{ 
		if(_bios_timeofday(_TIME_GETCLOCK, &tstamp1)) 
			dayofticksp+=20*60*60*24; 
		if(tstamp1+dayofticksp-tstamp>ticks) 
			return(-1); /* NOTE: This is an INT!!! */ 
		if(follow!=index) 
			{ 
			c=buf[follow++]; 
			follow=follow%TBUFSIZ; 
			return(c); 
			} 
		} 
	} 
 
int calccrc(ptr, count) 
	char *ptr; 
	int count; 
	{ 
	int crc, i; 
	crc = 0; 
	while(--count >= 0) 
		{ 
		crc = crc ^ (int)*ptr++ << 8; 
		for(i = 0; i < 8; ++i) 
			if(crc & 0x8000) 
				crc = crc << 1 ^ 0x1021; 
			else 
				crc = crc << 1; 
		} 
	return (crc & 0xFFFF); 
	} 
 
unsigned char block[1024]; 
 
rblock(size) 
int size; 
	{ 
	unsigned long crc; 
	unsigned long rcrc; 
	int c, i, j, blockn, invblockn; 
	crc=0; 
	if((blockn=rcharto(20))==-1) 
		return(-1); 
	printf("Block %d: ", blockn); 
	if((invblockn=rcharto(20))==-1) 
		return(-1); 
	for(i=0;i   \n"); 
		exit(1); 
		} 
	if((outfd=open(argv[4], O_WRONLY|O_BINARY|O_CREAT|O_TRUNC, S_IWRITE))==-1) 
		{ 
		printf("Error opening file %s.\n", argv[4]); 
		exit(2); 
		} 
	comnum=atoi(argv[1])-1; 
	speed=atoi(argv[2]); 
	databits='8'; 
	parity='n'; 
	stopbits=argv[3][0]; 
	setport(); 
	signal(SIGINT, quit); 
	readset(); 
	setup(); 
	ok=nbytes=0; 
	for(i=0;i<10;++i) 
		{ 
		sendchar('C'); 
		c=rcharto(200); 
		if(c==SOH) 
			{ 
			bsize=128; 
			ok=1; 
			break; 
			} 
		else if(c==STX) 
			{ 
			bsize=1024; 
			ok=1; 
			break; 
			} 
		} 
	if(!ok) 
		{ 
		printf("No SOH or STX after 10 10-second-spaced Cs.\n"); 
		cleanup(0); 
		exit(10); 
		} 
	blocknum=1; 
	for(i=0;i<10;++i) 
		{ 
		printf("\nSeeking block %d: ", blocknum); 
		if((c=rblock(bsize))==blocknum) 
			{ 
			i=0; 
			if(write(outfd, block, bsize)!=bsize) 
				{ 
				printf("Write error.\n"); 
				cleanup(0); 
				exit(13); 
				} 
			nbytes+=bsize; 
			printf("Successful. Bytes so far: %ld", nbytes); 
			blocknum=(blocknum+1)&0xff; 
			sendchar(ACK); 
			} 
		else if(c==-1) 
			{ 
			while(rcharto(20)!=-1); 
			sendchar(NAK); 
			} 
		else if(c