# include "setup.h"


cputc (a)
	char a;
	{
	cpm (CPUTC, a);
	}

cgetc ()
	{
	char c;

	for (;;)
		{
		c = cpm (6, -1);		/* direct console input */

		if (c)
			break;
		}

	if (c == 3)
		exit ();

	c = tolower (c);

	return c;
	}

prs (a)
	char *a;
	{
	cpm (CPRS, a);
	}

fatal (a)
	char *a;
	{
	prs (a);
	exit (NO);
	}

put (a)
	{
	cputs (a);
	}

cputs (a)
	register char *a;
	{
	for (; *a; a++)
		cputc (*a);
	}

prn (a)
	{
	put (itoa (a));
	}

	char *
itoa (a)
	{
	static char buf [8];

	buf [itob (buf, a, 16)] = NULL;
	return buf;
	}