/*--------------------------------------------------------------------*/
/* f o s s i l . c */
/* */
/* UUPC/extended defines for accessing FOSSIL functions via */
/* INT 14 under MS-DOS; also used for other INT14 interfaces. */
/*--------------------------------------------------------------------*/
/*--------------------------------------------------------------------*/
/* Changes Copyright (c) 1990-1993 by Kendra Electronic */
/* Wonderworks. */
/* */
/* All rights reserved except those explicitly granted by the */
/* UUPC/extended license agreement. */
/*--------------------------------------------------------------------*/
/*--------------------------------------------------------------------*/
/* RCS Information */
/*--------------------------------------------------------------------*/
/*
* $Id: FOSSIL.C 1.1 1993/05/30 15:25:50 ahd Exp $
*
* Revision history:
* $Log: FOSSIL.C $
* Revision 1.1 1993/05/30 15:25:50 ahd
* Initial revision
*
* Revision 1.1 1993/05/30 00:16:35 ahd
* Initial revision
*
*/
/*--------------------------------------------------------------------*/
/* System include files */
/*--------------------------------------------------------------------*/
#include
#include
/*--------------------------------------------------------------------*/
/* UUPC/extended include files */
/*--------------------------------------------------------------------*/
#include "lib.h"
#include "fossil.h"
/*--------------------------------------------------------------------*/
/* Global variables */
/*--------------------------------------------------------------------*/
short portNum; // Must be set by openline()
/*--------------------------------------------------------------------*/
/* F o s s i l C n t l */
/* */
/* Perform control functions on a FOSSIL port */
/*--------------------------------------------------------------------*/
short FossilCntl( const char function, const char info )
{
union REGS regs;
regs.x.dx = portNum;
regs.h.ah = function;
regs.h.al = info;
regs.x.bx = 0x00; // Insure start function doesn't
// cause ES:CX to be twiddled
int86( FS_INTERRUPT, ®s, ®s );
return regs.x.ax; // Return AX to caller
} /* FossilCntl */
