home *** CD-ROM | disk | FTP | other *** search
- /*
- * Name: MicroEMACS
- * Atari 520ST terminal I/O.
- * Version: 30
- * Last edit: 05-Feb-86
- * By: rex::conroy
- * decvax!decwrl!dec-rhea!dec-rex!conroy
- */
- #include "def.h"
- #include <osbind.h>
-
- int nrow; /* Terminal size, rows. */
- int ncol; /* Terminal size, columns. */
-
- /*
- * Open. Determine the size of
- * the display by calling the assembly
- * language "getnrow" and "getncol"
- * routines.
- */
- ttopen()
- {
- nrow = getnrow();
- if (nrow > NROW)
- nrow = NROW;
- ncol = getncol();
- if (ncol > NCOL)
- ncol = NCOL;
- }
- /*
- * No-op.
- */
- ttclose()
- {
- }
-
- /*
- * Put character.
- */
- ttputc(c)
- {
- Crawio(c & 0x7F);
- }
-
- /*
- * No-op.
- */
- ttflush()
- {
- }
-
- /*
- * Get characters.
- */
- ttgetc()
- {
- return (Crawcin() & 0x7F);
- }
-