home *** CD-ROM | disk | FTP | other *** search
- /*--------------------------------------------------------------------*/
- /* 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 <stdio.h>
- #include <dos.h>
-
- /*--------------------------------------------------------------------*/
- /* 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 */
-