	/*
	**	SP1.INC
	**
	**	James L. Bates
	**	Batech Corporation
	**	c/o Cogitate, Inc.
	**	24000 Telegraph
	**	Southfield, MI 48034
	**
	**	Tally ratio of timer_on/timer_off using
	**	minimal _asm coding.
	*/
	while (!kbhit())
	{
	 	_asm
	 	{     	mov	dx,addr	; comm port address
	 		xor	ax,ax	; clear for int val
	 		in	al,dx	; read the modem status
	 		mov	val,ax	; save the status value
	 	}
		if (!kb_env && !(val&0x20))
			break;
	 	if ( val & 0x10 )
			c_on1++;	/* increment timer on */
		else
			c_off++;	/* increment timer off */
	}

