home *** CD-ROM | disk | FTP | other *** search
- /* IBMPC: IBMPC I/O routines for MicroSPELL 1.0
- Spell Checker and Corrector
-
- (C)opyright May 1987 by Daniel Lawrence
- All Rights Reserved
- */
-
- #include <stdio.h>
- #include "dopt.h"
- #include "dstruct.h"
- #include "ddef.h"
-
- #if IBMPC
- union REGS rg; /* cpu register for use of DOS calls */
-
- TTopen() /* open the IBM-PC screen */
-
- {
- return(TRUE);
- }
-
- TTclose() /* close the IBM-PC screen */
-
- {
- return(TRUE);
- }
-
- TTkopen() /* open the keyboard */
-
- {
- return(TRUE);
- }
-
- TTkclose() /* close the keyboard */
-
- {
- return(TRUE);
- }
-
- TTgetc(c) /* get a character from the keyboard */
-
- char c; /* character to print */
-
- {
- /* call the dos to get a char */
- rg.h.ah = 7; /* dos Direct Console Input call */
- intdos(&rg, &rg);
- c = rg.h.al; /* grab the char */
- return(c & 255);
- }
-
- TTputc(c)
-
- char c; /* character to print */
-
- {
- bdos(6, c, 0);
- }
-
- TTflush() /* flush the I/O (nop) */
-
- {
- return(TRUE);
- }
-
- TTmove(row, col) /* move cursor to location on screen */
-
- int row, col;
-
- {
- rg.h.ah = 2; /* set cursor position function code */
- rg.h.dl = col;
- rg.h.dh = row;
- rg.h.bh = 0; /* set screen page number */
- int86(0x10, &rg, &rg);
- }
-
- TTbeep() /* ring the bell */
-
- {
- TTputc(7);
- }
-
- #if 0
- #define TTeeol (*term.t_eeol)
- #define TTeeop (*term.t_eeop)
- #define TTrev (*term.t_rev)
- #define TTrez (*term.t_rez)
- #if COLOR
- #define TTforg (*term.t_setfor)
- #define TTbacg (*term.t_setback)
- #endif
- #endif
-
- #endif