initial import of NetBSD tree

3 files changed, 1077 insertions, 0 deletions

diff --git a/sys/arch/i386/isa/pcvt/Util/scon/Makefile b/sys/arch/i386/isa/pcvt/Util/scon/Makefile
new file mode 100644
index 00000000000..6fdb94eb650
--- /dev/null
+++ b/sys/arch/i386/isa/pcvt/Util/scon/Makefile
@@ -0,0 +1,3 @@
+PROG=	scon
+
+.include <bsd.prog.mk>
diff --git a/sys/arch/i386/isa/pcvt/Util/scon/scon.1 b/sys/arch/i386/isa/pcvt/Util/scon/scon.1
new file mode 100644
index 00000000000..d99802b2975
--- /dev/null
+++ b/sys/arch/i386/isa/pcvt/Util/scon/scon.1
@@ -0,0 +1,214 @@
+.\" Copyright (c) 1992, 1995 Hellmuth Michaelis and Joerg Wunsch
+.\"
+.\" All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. All advertising materials mentioning features or use of this software
+.\"    must display the following acknowledgement:
+.\"	This product includes software developed by
+.\"	Hellmuth Michaelis and Joerg Wunsch
+.\" 4. The name authors may not be used to endorse or promote products
+.\"    derived from this software without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
+.\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+.\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+.\" IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT,
+.\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+.\" NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+.\" DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+.\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+.\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+.\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+.\"
+.\" @(#)scon.1, 3.30, Last Edit-Date: [Mon Jul  3 11:25:13 1995]
+.\"
+.Dd December 31, 1993
+.Dt SCON 1
+.Sh NAME
+.Nm scon
+.Nd controls screen modes for pcvt video driver
+.Sh SYNOPSIS
+.Nm scon
+.Op Fl a
+.Op Fl c Ar screenno
+.Op Fl d Ar device
+.Op Fl f Ar on|off
+.Op Fl h
+.Op Fl H
+.Op Fl l
+.Op Fl m
+.Op Fl v
+.Op Fl V
+.Op Fl s Ar lines
+.br
+.Nm scon
+.Op Fl v
+.Op Fl d Ar device
+.Fl p Ar entry,red,green,blue
+.br
+.Nm scon
+.Op Fl v
+.Op Fl d Ar device
+.Fl p Ar default
+.br
+.Nm scon
+.Op Fl v
+.Op Fl d Ar device
+.Fl p Ar list
+.Nm scon
+.Op Fl v
+.Fl t Ar timeout
+.Nm scon
+.Op Fl v
+.Fl 1 | Fl 8
+.Sh DESCRIPTION
+The
+.Nm scon
+utility controls several aspects of the runtime behaviour of the pcvt vt220
+driver.
+.Pp
+The options are as follows:
+.Bl -tag -width Ds
+.It Fl a
+Returns a string describing the video adaptor found by pcvt, the string 
+returned could be MDA, HGC, CGA, EGA, VGA or UNKNOWN.
+.It Fl c
+Specify the screen number the current (displayed) screen should be switched 
+to.
+.It Fl d
+Specify the device filename (i.e. /dev/ttyv2) further operations specified on 
+the command line should be applied to.
+.It Fl f
+Some programs which silently assume 24 lines when they run on a VT220 show
+incorrect behaviour when the terminal has really 25 lines. To support full
+VT220 behaviour, it is possible to force pcvt to select only 24 lines when
+it is running in 25-lines pure VT mode and/or in 28-lines HP-mode. The
+.Fl f
+option requires one additional parameter, the string 'on' or 'off' to switch
+this mode for a virtual screen on or off respectively. This mode has no effect
+if any other vertical resolutions are selected than the two above mentioned.
+.It Fl h
+Prints a usage/help text.
+.It Fl l
+Lists the current configuration of runtime changeable options and fixed
+parameters (such as the type of the adaptor, and in case of a VGA adaptor,
+the Manufacturer, Chipset and 132 column support) of the output portion
+of the pcvt driver.
+.It Fl m
+Returns a string describing the connected display monitor type found by pcvt,
+the string returned can be MONO, COLOR or UNKNOWN.
+.It Fl v
+Specify verbose operation of the program.
+.It Fl V
+Switch the specified/current screen into a pure VT220 mode without recognizing
+any HP escape sequences and without displaying function key labels.
+.It Fl H
+Switch the specified/current screen into a mixed HP/VT220 mode. That is, that
+in addition to the full VT220 emulation, the HP function key labels and the
+escape sequences for handling the labels are available to the user.
+.It Fl s
+Specify the number of character lines on the screen. Possible parameters are
+25, 28, 35, 40, 43 or 50. To use all this screen sizes, the fonts required
+for proper operation of a desired size have to be downloaded to the EGA/VGA
+font ram. This option is available only for EGA and VGA boards.
+.It Fl p
+Modify VGA palette
+.Pq DAC .
+The
+.Fl p
+is mutually exclusive with
+.Fl s ,
+.Fl H ,
+and
+.Fl V .
+Naturally, option
+.Fl p
+is available only for VGA boards. Three flavors are available.
+
+If used with argument
+.Dq Ar default ,
+this flag will restore the default palette
+.Po
+as installed by VGA ROM BIOS after hardware reset
+.Pc .
+
+If used with argument
+.Dq Ar list ,
+the current VGA DAC palette entries are listed. Each entry contains
+the table index, values for red, green, and blue, and if there's a
+known name for this entry, the color name. Trailing empty table
+slots (RGB values all zero) are omitted.
+
+Otherwise, four comma-separated arguments are expected. The first
+denotes the number of palette entry to be modified. This may be either
+a number between 0 and 255, or the usual name of an associated color
+.Pq case-insensitive .
+The following values for red, green and blue are restricted to 0 through 63
+due to VGA DAC conventions.
+Note that the first delimiter within such an argument may be a colon
+.Dq \&:
+instead of a comma
+.Dq \&,
+for better readability, but this violates common command argument
+conventions.
+Multiple
+.Fl p
+options may be specified if unambiguous.
+.It Fl t
+Specifying
+.Fl t
+will activate the screen saver. The behaviour depends on
+.Ar timeout :
+if
+.Ar timeout
+is given as 0, the screen saver is turned off. Otherwise,
+.Ar timeout
+is taken as a number of seconds to wait until activating the
+screen saver.
+NOTE: the
+.Fl t
+option is only available if screen saver support has been compiled into
+the driver !
+.It Fl 1
+Sets 132 columns mode
+.Pq only available on VGA adaptors .
+.It Fl 8
+Sets 80 columns mode.
+.El
+.Pp
+When switching between HP and VT mode, when switching the force 24 lines 
+mode on and off, or when switching between 80 and 132 columns operation,
+the screen is cleared, the scrolling
+region is reset and the cursor is placed in the home position.
+.Sh EXAMPLES
+The command
+.Dq Li scon Fl H s Ar 28
+places the current screen into HP mode and sets the screen size to 28x80.
+
+Invoking
+.Do
+.Li scon Fl p
+.Ar lightgray,0,15,0
+.Fl p
+.Ar 0:45,45,45
+.Dc
+will result in green on gray output for normal text.
+Note that normal text color is light gray, and not white as one might expect.
+.Sh BUGS
+the
+.Fl c
+and
+.Fl d
+options collide somehow, this will change in a future release.
+.Sh SEE ALSO
+.Xr loadfont 1 ,
+.Xr cursor 1 ,
+.Xr pcvt 4
diff --git a/sys/arch/i386/isa/pcvt/Util/scon/scon.c b/sys/arch/i386/isa/pcvt/Util/scon/scon.c
new file mode 100644
index 00000000000..0c512ab4cd3
--- /dev/null
+++ b/sys/arch/i386/isa/pcvt/Util/scon/scon.c
@@ -0,0 +1,860 @@
+/*
+ * Copyright (c) 1992, 1995 Hellmuth Michaelis and Joerg Wunsch
+ *
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by
+ *	Hellmuth Michaelis and Joerg Wunsch
+ * 4. The name authors may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ * IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+ * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+ * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+ * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+ * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ *
+ */
+
+static char *id =
+	"@(#)scon.c, 3.30, Last Edit-Date: [Wed Aug 30 13:57:10 1995]";
+
+/*---------------------------------------------------------------------------*
+ *
+ *	history:
+ *
+ *	-hm	moving fd for default device from 1 -> 0 for such things
+ *		as "scon -p list | more" to be possible
+ *		(reported by Gordon L. Burditt, gordon@sneaky.lonestar.org)
+ *	-hm	adding option "a" for just returning the type of video adaptor
+ *	-hm	removing explicit HGC support, same as MDA ...
+ *	-hm	vga type/family/132col support info on -l
+ *	-hm	force 24 lines in DEC 25 lines mode and HP 28 lines mode
+ *	-hm	fixed bug with 132 column mode display status display
+ *	-jw	added 132/80 col mode switching
+ *	-hm	removed -h flag, use -? now ... ;-)
+ *	-hm	S3 chipsets ..
+ *	-hm	Cirrus chipsets support from Onno van der Linden
+ *	-hm	-m option, display monitor type
+ *	-hm	bugfix, scon -c <screen-num> cleared dest screen, fixed
+ *	-hm	patch to support Cirrus CL-GD62x5 from Martin
+ *
+ *---------------------------------------------------------------------------*/
+
+#include <stdio.h>
+#include <fcntl.h>
+#include <machine/pcvt_ioctl.h>
+
+#define DEFAULTFD 0
+
+int aflag = -1;
+int lflag = -1;
+int mflag = -1;
+int current = -1;
+int pflag = -1;
+int hflag = -1;
+int res = -1;
+char *device;
+int dflag = -1;
+int vflag = 0;
+int Pflag = 0;
+int tflag = 0;
+int fflag = -1;
+int colms = 0;
+char *onoff;
+
+unsigned timeout;
+struct screeninfo screeninfo;
+
+#define NVGAPEL 256
+
+struct rgb {
+	unsigned r, g, b;
+	int dothis;
+};
+
+static struct rgb palette[NVGAPEL] = {
+	{ 0x00,  0x00,  0x00, 0},		/*   0 - black		*/
+	{ 0x00,  0x00,  0x2a, 0},		/*   1 - blue		*/
+	{ 0x00,  0x2a,  0x00, 0},		/*   2 - green		*/
+	{ 0x00,  0x2a,  0x2a, 0},		/*   3 - cyan		*/
+	{ 0x2a,  0x00,  0x00, 0},		/*   4 - red		*/
+	{ 0x2a,  0x00,  0x2a, 0},		/*   5 - magenta	*/
+	{ 0x2a,  0x2a,  0x00, 0},		/*   6 			*/
+	{ 0x2a,  0x2a,  0x2a, 0},		/*   7 - lightgray	*/
+	{ 0x00,  0x00,  0x15, 0},		/*   8 			*/
+	{ 0x00,  0x00,  0x3f, 0},		/*   9 			*/
+	{ 0x00,  0x2a,  0x15, 0},		/*  10 			*/
+	{ 0x00,  0x2a,  0x3f, 0},		/*  11 			*/
+	{ 0x2a,  0x00,  0x15, 0},		/*  12 			*/
+	{ 0x2a,  0x00,  0x3f, 0},		/*  13 			*/
+	{ 0x2a,  0x2a,  0x15, 0},		/*  14 			*/
+	{ 0x2a,  0x2a,  0x3f, 0},		/*  15 			*/
+	{ 0x00,  0x15,  0x00, 0},		/*  16 			*/
+	{ 0x00,  0x15,  0x2a, 0},		/*  17 			*/
+	{ 0x00,  0x3f,  0x00, 0},		/*  18 			*/
+	{ 0x00,  0x3f,  0x2a, 0},		/*  19 			*/
+	{ 0x2a,  0x15,  0x00, 0},		/*  20 - brown		*/
+	{ 0x2a,  0x15,  0x2a, 0},		/*  21 			*/
+	{ 0x2a,  0x3f,  0x00, 0},		/*  22 			*/
+	{ 0x2a,  0x3f,  0x2a, 0},		/*  23 			*/
+	{ 0x00,  0x15,  0x15, 0},		/*  24 			*/
+	{ 0x00,  0x15,  0x3f, 0},		/*  25 			*/
+	{ 0x00,  0x3f,  0x15, 0},		/*  26 			*/
+	{ 0x00,  0x3f,  0x3f, 0},		/*  27 			*/
+	{ 0x2a,  0x15,  0x15, 0},		/*  28 			*/
+	{ 0x2a,  0x15,  0x3f, 0},		/*  29 			*/
+	{ 0x2a,  0x3f,  0x15, 0},		/*  30 			*/
+	{ 0x2a,  0x3f,  0x3f, 0},		/*  31 			*/
+	{ 0x15,  0x00,  0x00, 0},		/*  32 			*/
+	{ 0x15,  0x00,  0x2a, 0},		/*  33 			*/
+	{ 0x15,  0x2a,  0x00, 0},		/*  34 			*/
+	{ 0x15,  0x2a,  0x2a, 0},		/*  35 			*/
+	{ 0x3f,  0x00,  0x00, 0},		/*  36 			*/
+	{ 0x3f,  0x00,  0x2a, 0},		/*  37 			*/
+	{ 0x3f,  0x2a,  0x00, 0},		/*  38 			*/
+	{ 0x3f,  0x2a,  0x2a, 0},		/*  39 			*/
+	{ 0x15,  0x00,  0x15, 0},		/*  40 			*/
+	{ 0x15,  0x00,  0x3f, 0},		/*  41 			*/
+	{ 0x15,  0x2a,  0x15, 0},		/*  42 			*/
+	{ 0x15,  0x2a,  0x3f, 0},		/*  43 			*/
+	{ 0x3f,  0x00,  0x15, 0},		/*  44 			*/
+	{ 0x3f,  0x00,  0x3f, 0},		/*  45 			*/
+	{ 0x3f,  0x2a,  0x15, 0},		/*  46 			*/
+	{ 0x3f,  0x2a,  0x3f, 0},		/*  47 			*/
+	{ 0x15,  0x15,  0x00, 0},		/*  48 			*/
+	{ 0x15,  0x15,  0x2a, 0},		/*  49 			*/
+	{ 0x15,  0x3f,  0x00, 0},		/*  50 			*/
+	{ 0x15,  0x3f,  0x2a, 0},		/*  51 			*/
+	{ 0x3f,  0x15,  0x00, 0},		/*  52 			*/
+	{ 0x3f,  0x15,  0x2a, 0},		/*  53 			*/
+	{ 0x3f,  0x3f,  0x00, 0},		/*  54 			*/
+	{ 0x3f,  0x3f,  0x2a, 0},		/*  55 			*/
+	{ 0x15,  0x15,  0x15, 0},		/*  56 - darkgray	*/
+	{ 0x15,  0x15,  0x3f, 0},		/*  57 - lightblue	*/
+	{ 0x15,  0x3f,  0x15, 0},		/*  58 - lightgreen	*/
+	{ 0x15,  0x3f,  0x3f, 0},		/*  59 - lightcyan	*/
+	{ 0x3f,  0x15,  0x15, 0},		/*  60 - lightred	*/
+	{ 0x3f,  0x15,  0x3f, 0},		/*  61 - lightmagenta	*/
+	{ 0x3f,  0x3f,  0x15, 0},		/*  62 - yellow		*/
+	{ 0x3f,  0x3f,  0x3f, 0},		/*  63 - white		*/
+	{ 0x00,  0x00,  0x00, 0}		/*  64 ... - empty	*/
+};
+
+static struct colname {
+	const char *name;
+	unsigned idx;
+} colnames[] = {
+	{"black", 0},
+	{"blue", 1},
+	{"green", 2},
+	{"cyan", 3},
+	{"red", 4},
+	{"magenta", 5},
+	{"brown", 20},
+	{"lightgray", 7},
+	{"lightgrey", 7},
+	{"darkgray", 56},
+	{"darkgrey", 56},
+	{"lightblue", 57},
+	{"lightgreen", 58},
+	{"lightcyan", 59},
+	{"lightred", 60},
+	{"lightmagenta", 61},
+	{"yellow", 62},
+	{"white", 63},
+	/* must be terminator: */ {(const char *)NULL, 0}
+};
+
+
+static void parsepopt(char *arg, unsigned *idx,
+		      unsigned *r, unsigned *g, unsigned *b);
+static void printpalette(int fd);
+
+main(argc,argv)
+int argc;
+char *argv[];
+{
+	extern int optind;
+	extern int opterr;
+	extern char *optarg;
+	
+	int c;
+	int fd;
+	
+	while( (c = getopt(argc, argv, "ac:d:f:HVlms:t:vp:18")) != EOF)
+	{
+		switch(c)
+		{
+			case 'a':
+				aflag = 1;
+				break;
+				
+			case 'l':
+				lflag = 1;
+				break;
+
+			case 'm':
+				mflag = 1;
+				break;
+
+			case 'c':
+				current = atoi(optarg);
+				break;
+				
+			case 'd':
+				device = optarg;
+				dflag = 1;
+				break;
+				
+			case 'f':
+				onoff = optarg;
+				fflag = 1;
+				break;
+				
+			case 'V':
+				pflag = 1;
+				break;
+
+			case 'H':
+				hflag = 1;
+				break;
+
+			case 's':
+				if     (!strncmp(optarg, "25", 2))
+					res = SIZ_25ROWS;
+				else if(!strncmp(optarg, "28", 2))
+					res = SIZ_28ROWS;
+				else if(!strncmp(optarg, "35", 2))
+					res = SIZ_35ROWS;
+				else if(!strncmp(optarg, "40", 2))
+					res = SIZ_40ROWS;
+				else if(!strncmp(optarg, "43", 2))
+					res = SIZ_43ROWS;
+				else if(!strncmp(optarg, "50", 2))
+					res = SIZ_50ROWS;
+				break;
+
+			case 'v':
+				vflag++;
+				break;
+
+			case 'p':
+				if(!strcmp(optarg, "list"))
+				{
+					if(Pflag)
+					{
+						fprintf(stderr,
+						"-p list is mutual exclusive "
+						"with other -p options\n");
+						return 2;
+					}
+					Pflag = 3;
+				}
+				else if(!strcmp(optarg, "default"))
+				{
+					if(Pflag)
+					{
+						fprintf(stderr,
+						"multiple -p default not "
+						"allowed\n");
+						return 2;
+					}
+					Pflag = 2;
+				} else {
+					unsigned idx, r, g, b;
+
+					if(Pflag > 1)
+					{
+						fprintf(stderr,
+						"-p default and -p i,r,g,b "
+						"ambiguous\n");
+						return 2;
+					}
+					Pflag = 1;
+					parsepopt(optarg, &idx, &r, &g, &b);
+					if(idx >= NVGAPEL)
+					{
+						fprintf(stderr,
+						"index %u in -p option "
+						"out of range\n", idx);
+						return 2;
+					}
+					palette[idx].r = r;
+					palette[idx].g = g;
+					palette[idx].b = b;
+					palette[idx].dothis = 1;
+				}
+				break;
+
+			case 't':
+				tflag++;
+				timeout = atoi(optarg);
+				break;
+
+			case '1':
+				colms = 132;
+				break;
+			
+			case '8':
+				colms = 80;
+				break;
+
+			case '?':
+			default:
+				usage();
+				break;
+		}
+	}
+
+	if((pflag == 1) && (hflag == 1))
+		usage();
+
+	if(dflag == -1 && lflag == -1 && current == -1 && pflag == -1 &&
+	   hflag == -1 && res == -1 && Pflag == 0 && tflag == 0 && fflag == -1
+	   && colms == 0 && mflag == -1)
+	{
+		lflag = 1;
+	}
+
+	if(dflag == -1)
+	{
+		if(vflag)
+			printf("using current device\n");
+		fd = DEFAULTFD;		/* -hm, Feb 12 1993 */
+	}
+	else
+	{
+		if((fd = open(device, O_RDWR)) == -1)
+		{
+			char buffer[80];
+			strcpy(buffer,"ERROR opening ");
+			strcat(buffer,device);
+			perror(buffer);
+			exit(1);
+		}
+		if(vflag)
+			printf("using device %s\n",device);		
+	}
+
+	if(aflag == 1)	/* return adaptor type */
+	{
+		printadaptor(fd);
+		exit(0);
+	}
+
+	if(mflag == 1)	/* return monitor type */
+	{
+		printmonitor(fd);
+		exit(0);
+	}
+
+	if(lflag == 1)	/* list information */
+	{
+		if(vflag)
+			printf("processing option -l, listing screen info\n");
+		printinfo(fd);
+		exit(0);
+	}
+
+	if(tflag)	/* set screen saver timeout */
+	{
+		if(vflag)
+		{
+			printf(
+			"processing option -t, setting screen saver timeout: "
+			);
+			if(timeout)
+				printf("new timeout = %d s\n", timeout);
+			else
+				printf("turned off\n");
+		}
+
+		if(ioctl(fd, VGASCREENSAVER, &timeout) < 0)
+		{
+			perror("ioctl(VGASCREENSAVER)");
+			fprintf(stderr, "Check the driver, the screensaver is probably not compiled in!\n");
+			exit(2);
+		}
+		goto success;
+	}
+
+	if(colms)
+	{
+		if(vflag)
+			printf("Setting number of columns to %d\n", colms);
+		if(ioctl(fd, VGASETCOLMS, &colms) < 0)
+		{
+			perror("ioctl(VGASETCOLMS)");
+			exit(2);
+		}
+		goto success;
+	}
+	
+	if(Pflag == 3)
+	{
+		/* listing VGA palette */
+		if(vflag)
+			printf("processing option -p list, "
+			       "listing VGA palette\n");
+
+		printpalette(fd);
+		goto success;
+	}
+
+	if(Pflag)
+	{
+		unsigned int idx;
+
+		/* setting VGA palette */
+		if(vflag)
+			printf("processing option -p, setting VGA palette%s\n",
+			       Pflag == 2? " to default": "");
+
+		for(idx = 0; idx < NVGAPEL; idx++)
+			if(Pflag == 2 || palette[idx].dothis)
+			{
+				struct vgapel p;
+				p.idx = idx;
+				p.r = palette[idx].r;
+				p.g = palette[idx].g;
+				p.b = palette[idx].b;
+				if(ioctl(fd, VGAWRITEPEL, (caddr_t)&p) < 0)
+				{
+					perror("ioctl(fd, VGAWRITEPEL)");
+					return 2;
+				}
+			}
+		goto success;
+	}
+
+	screeninfo.screen_no = -1; /* We are using fd */
+	screeninfo.current_screen = current;
+	screeninfo.pure_vt_mode = -1;
+	screeninfo.screen_size = res;	
+	screeninfo.force_24lines = -1;
+	
+	if(current != -1)	/* set current screen */
+	{
+		if(vflag)
+			printf("processing option -c, setting current screen to %d\n",current);
+		
+		if(ioctl(1, VGASETSCREEN, &screeninfo) == -1)
+		{
+			perror("ioctl VGASETSCREEN failed");
+			exit(1);
+		}
+		exit(0);
+	}
+
+	if(pflag == 1)
+	{
+		if(vflag)
+			printf("processing option -V, setting emulation to pure VT220\n");
+		screeninfo.pure_vt_mode = M_PUREVT;
+	}
+	else if(hflag == 1)
+	{
+		if(vflag)
+			printf("processing option -H, setting emulation to VT220 + HP Labels\n");
+		screeninfo.pure_vt_mode = M_HPVT;
+	}
+	else
+	{
+		if(vflag)
+			printf("no change in terminal emulation\n");
+	}
+
+	if(vflag)
+	{
+		if(res == -1)
+			printf("no change in screen resolution\n");
+		else if(res == SIZ_25ROWS)
+			printf("change screen resolution to 25 lines\n");
+		else if(res == SIZ_28ROWS)
+			printf("change screen resolution to 28 lines\n");
+		else if(res == SIZ_35ROWS)
+			printf("change screen resolution to 35 lines\n");
+		else if(res == SIZ_40ROWS)
+			printf("change screen resolution to 40 lines\n");
+		else if(res == SIZ_43ROWS)
+			printf("change screen resolution to 43 lines\n");
+		else if(res == SIZ_50ROWS)
+			printf("change screen resolution to 50 lines\n");
+	}
+
+	if(fflag == 1)	/* force 24 lines on/off */
+	{
+		if(!strcmp(onoff, "on"))
+		{
+			fflag = 1;
+		}
+		else if(!strcmp(onoff, "off"))
+		{
+			fflag = 0;
+		}
+		else
+		{
+			fprintf(stderr,"you must specify 'on' or 'off' with -f option!\n");
+			exit(1);
+		}
+	}
+	screeninfo.force_24lines = fflag;
+
+	if(ioctl(fd, VGASETSCREEN, &screeninfo) == -1)
+	{
+		perror("ioctl VGASETSCREEN failed");
+		exit(1);
+	}
+success:
+	if(vflag)
+		printf("successful execution of ioctl VGASETSCREEN!\n");
+	exit(0);	
+}			
+
+usage()
+{
+	fprintf(stderr,"\nscon - screen control utility for the pcvt video driver\n");
+	fprintf(stderr,"usage: scon -a -l -m -v -c [n] -d [dev] -f [on|off] -V -H -s [n]\n");
+	fprintf(stderr,"usage: scon -p [default | list | i,r,g,b] | -t [sec] | -1 | -8\n");
+	fprintf(stderr,"       -a              list video adaptor type (MDA,CGA,EGA or VGA)\n");
+	fprintf(stderr,"       -c <screen no>  switch current virtual screen to <screen no>\n");
+	fprintf(stderr,"       -d <device>     set parameters(-V|-H|-s) for virtual device\n");
+	fprintf(stderr,"       -f <on|off>     force 24 lines in VT 25 lines and HP 28 lines mode\n");
+	fprintf(stderr,"       -H              set VT220/HP emulation mode for a virtual screen\n");
+	fprintf(stderr,"       -l              list current parameters for a virtual screen\n");
+	fprintf(stderr,"       -m              report monitor type (MONO/COLOR)\n");
+	fprintf(stderr,"       -p default      set default VGA palette\n");
+	fprintf(stderr,"       -p list         list current VGA palette\n");
+	fprintf(stderr,"       -p <i,r,g,b>    set VGA palette entry i to r/g/b\n");
+	fprintf(stderr,"       -p <name,r,g,b> set VGA palette entry for color name to r/g/b\n");
+	fprintf(stderr,"       -s <lines>      set 25, 28, 35, 40, 43 or 50 lines for a virtual screen\n");
+	fprintf(stderr,"       -t <timeout>    set screen saver timeout [seconds]\n");
+	fprintf(stderr,"       -1              set 132 columns mode\n");
+	fprintf(stderr,"       -8              set 80 columns mode\n");
+	fprintf(stderr,"       -v              verbose mode\n");
+	fprintf(stderr,"       -V              set pure VT220 emulation for a virtual screen\n");
+	fprintf(stderr,"       -?              display help (this message)\n\n");
+	exit(1);
+}
+
+printadaptor(fd)
+int fd;
+{
+	if(ioctl(fd, VGAGETSCREEN, &screeninfo) == -1)
+	{
+		perror("ioctl VGAGETSCREEN failed");
+		exit(1);
+	}
+	switch(screeninfo.adaptor_type)
+	{
+		default:
+		case UNKNOWN_ADAPTOR:
+			printf("UNKNOWN\n");
+			break;
+			
+		case MDA_ADAPTOR:
+			printf("MDA\n");
+			break;
+			
+		case CGA_ADAPTOR:
+			printf("CGA\n");
+			break;
+			
+		case EGA_ADAPTOR:
+			printf("EGA\n");
+			break;
+			
+		case VGA_ADAPTOR:
+			printf("VGA\n");
+			break;
+	}
+}
+
+printmonitor(fd)
+int fd;
+{
+	if(ioctl(fd, VGAGETSCREEN, &screeninfo) == -1)
+	{
+		perror("ioctl VGAGETSCREEN failed");
+		exit(1);
+	}
+	switch(screeninfo.monitor_type)
+	{
+		default:
+			printf("UNKNOWN\n");
+			break;
+			
+		case MONITOR_MONO:
+			printf("MONO\n");
+			break;
+			
+		case MONITOR_COLOR:
+			printf("COLOR\n");
+			break;
+	}
+}
+
+char *vga_type(int number)
+{
+	static char *vga_tab[] = {
+		"Generic VGA",
+		"ET4000",
+		"ET3000",
+		"PVGA1A",
+		"WD90C00",
+		"WD90C10",
+		"WD90C11",
+		"VIDEO 7 VEGA",
+		"VIDEO 7 FAST",
+		"VIDEO 7 VER5",
+		"VIDEO 7 1024I",
+		"Unknown VIDEO 7",
+		"TVGA 8800BR",
+		"TVGA 8800CS",
+		"TVGA 8900B",
+		"TVGA 8900C",
+		"TVGA 8900CL",
+		"TVGA 9000",
+		"TVGA 9100",
+		"TVGA 9200",
+		"Unknown TRIDENT",
+		"S3 80C911",
+		"S3 80C924",
+		"S3 80C801/80C805",
+		"S3 80C928",
+		"Unknown S3",
+ 		"CL-GD5402",
+ 		"CL-GD5402r1",
+ 		"CL-GD5420",
+ 		"CL-GD5420r1",
+ 		"CL-GD5422",
+ 		"CL-GD5424",
+ 		"CL-GD5426",
+ 		"CL-GD5428",
+ 		"CL-GD5430",
+ 		"CL-GD62x5",
+ 		"Unknown Cirrus",
+
+	};
+	return(vga_tab[number]);
+}
+
+char *vga_family(int number)
+{
+	static char *vga_tab[] = {
+		"Generic VGA",
+		"Tseng Labs",
+		"Western Digital",
+		"Video Seven",
+		"Trident",
+		"S3 Incorporated",
+		"Cirrus Logic",
+	};
+	return(vga_tab[number]);
+}
+
+printinfo(fd)
+int fd;
+{
+	if(ioctl(fd, VGAGETSCREEN, &screeninfo) == -1)
+	{
+		perror("ioctl VGAGETSCREEN failed");
+		exit(1);
+	}
+
+	printf( "\nVideo Adaptor Type           = ");
+	
+	switch(screeninfo.adaptor_type)
+	{
+		default:
+		case UNKNOWN_ADAPTOR:
+			printf("UNKNOWN Video Adaptor\n");
+			break;
+			
+		case MDA_ADAPTOR:
+			printf("MDA - Monochrome Display Adaptor\n");
+			break;
+			
+		case CGA_ADAPTOR:
+			printf("CGA - Color Graphics Adaptor\n");
+			break;
+			
+		case EGA_ADAPTOR:
+			printf("EGA - Enhanced Graphics Adaptor\n");
+			break;
+			
+		case VGA_ADAPTOR:
+			printf("VGA - Video Graphics Adaptor/Array\n");
+			printf(" VGA Chipset Manufacturer    = %s\n",
+					vga_family(screeninfo.vga_family));
+			printf(" VGA Chipset Type            = %s\n",
+					vga_type(screeninfo.vga_type));
+			printf(" Support for 132 Column Mode = %s\n",
+					screeninfo.vga_132 ? "Yes" : "No");
+			break;
+	}
+
+	printf( "Display Monitor Type         = ");	
+
+	switch(screeninfo.monitor_type)
+	{
+		default:
+			printf("UNKNOWN Monitor Type\n");
+			break;
+			
+		case MONITOR_MONO:
+			printf("Monochrome Monitor\n");
+			break;
+			
+		case MONITOR_COLOR:
+			printf("Color Monitor\n");
+			break;
+	}
+	
+	printf( "Number of Downloadable Fonts = %d\n",screeninfo.totalfonts);
+	printf( "Number of Virtual Screens    = %d\n",screeninfo.totalscreens);
+	printf( "Info Request Screen Number   = %d\n",screeninfo.screen_no);
+	printf( "Current Displayed Screen     = %d\n",screeninfo.current_screen);
+	
+	if(screeninfo.pure_vt_mode == M_PUREVT)				
+		printf( "Terminal Emulation Mode      = VT220\n");
+	else
+		printf( "Terminal Emulation Mode      = VT220 with HP Features\n");
+
+	printf( "Lines                        = ");	
+
+	switch(screeninfo.screen_size)
+	{
+		case SIZ_25ROWS:
+			printf( "25\n");
+			break;
+	
+		case SIZ_28ROWS:
+			printf( "28\n");
+			break;
+	
+		case SIZ_35ROWS:
+			printf( "35\n");
+			break;
+	
+		case SIZ_40ROWS:
+			printf( "40\n");
+			break;
+	
+		case SIZ_43ROWS:
+			printf( "43\n");
+			break;
+	
+		case SIZ_50ROWS:
+			printf( "50\n");
+			break;
+	
+		default:
+			printf( "UNKNOWN\n");
+			break;
+	}
+	printf( "Force 24 Lines               = %s",
+			screeninfo.force_24lines ? "Yes" : "No");
+
+	printf("\n\n");
+}
+
+static const char *findname(unsigned idx)
+{
+	/* try to find a name for palette entry idx */
+	/* if multiple names exist, returns first matching */
+	register struct colname *cnp;
+
+	for(cnp = colnames; cnp->name; cnp++)
+		if(cnp->idx == idx)
+			return cnp->name;
+
+	/* not found */
+	return (const char *)NULL;
+}
+
+static void printpalette(int fd)
+{
+	register unsigned idx, last;
+
+	for(idx = 0; idx < NVGAPEL; idx++)
+	{
+		struct vgapel p;
+		p.idx = idx;
+		if(ioctl(fd, VGAREADPEL, &p) < 0)
+		{
+			perror("ioctl(VGAREADPEL)");
+			exit(2);
+		}
+		palette[idx].r = p.r;
+		palette[idx].g = p.g;
+		palette[idx].b = p.b;
+	}
+
+	/* find last non-empty entry */
+	for(last = NVGAPEL - 1; last; last--)
+		if(palette[last].r || palette[last].g || palette[last].b)
+			break;
+
+	if(last != NVGAPEL - 1)
+		last++;
+
+	/* now, everything's collected. print out table */
+	printf("VGA palette status\n");
+	printf("index    red  green   blue  name\n");
+	for(idx = 0; idx < last; idx++)
+	{
+		const char *cp;
+		printf("%5d  %5d  %5d  %5d",
+		       idx, palette[idx].r, palette[idx].g, palette[idx].b);
+		if(cp = findname(idx))
+			printf("  %s\n", cp);
+		else
+			putchar('\n');
+	}
+	putchar('\n');
+}
+
+
+static void parsepopt(char *arg, unsigned *idx,
+		      unsigned *r, unsigned *g, unsigned *b)
+{
+	char firstarg[21];
+	register unsigned i;
+
+	if(sscanf(arg, "%20[a-zA-Z0-9]%*[,:]%u,%u,%u", firstarg, r, g, b) < 4
+	   || strlen(firstarg) == 0) {
+		fprintf(stderr, "too few args in -p i,r,g,b\n");
+		exit(2);
+	}
+
+	if(firstarg[0] >= '0' && firstarg[0] <= '9') {
+		*idx = strtoul(firstarg, NULL, 10);
+		return;
+	}
+
+	for(i = 0; colnames[i].name; i++)
+		if(strcasecmp(colnames[i].name, firstarg) == 0) {
+			*idx = colnames[i].idx;
+			return;
+		}
+	fprintf(stderr, "arg ``%s'' in -p option not recognized\n",
+		firstarg);
+	exit(2);
+}