rlb@bsts00.UUCP (Ronald ) (11/24/90)
Just wanted to post somthing that maybe of use and encourage
others to enhance for 386 UNIX on ESIX and ISC, INTEL platforms.
# This is a shell archive. Remove anything before this line.
#Unpack it by saving it in a file and typing "sh file".
#
# Wrapped by at bsts00 on Fri Nov 23 13:59:53 EST 1990.
#
#This archive contains:
# port.c \(6317bytes\)
#
# file port.c checksum -r = 38660 13 port.c
echo Extracting port.c 1>&2
if test -f port.c ; then
echo will not overwrite port.c 1>&2
else
sed 's/^X//' > port.c <<\!!!EOF!!!
X#ident " @(#) port.c: Author - R. L. Bolin 1.9 90/02/21 "
X/*
X Program to control 386 UNIX EGA/VGA attribute registers for color
X background, forground and screen blanking
X Common use "port b", gives blue background and whit letters.
X "port s #", sets one attribute"
X "port x", blanks screen until another port command is given.
X
X Note: This is not a finished program, it still needs some work and could
X use some enhancements, like saving the virtual attributes so that
X each virtual screen could have its own color. This version sets all
X virtual consoles to the same color. On occasion my VGA card (SIGMA)
X VGA does not always respond correctly after several selections have
X been tested. Must be somthing in the INB to the register. Hope someone
X has the time and want to take this further and pass along. It works
X and has been tested on ISC and ESIX V3.2.
X
X Feel free to copy and enhance this code. Just post any
X updates on this news group.
X Ron Bolin
X BellSouth Services Atlanta, GA 404-529-3945
X*/
X
X#include <stdio.h>
X#include <sys/types.h>
X
X#define KIOC ('K'<<8)
X#define KDSBORDER (KIOC|13) /* set ega color border */
X#define KDENABIO (KIOC|60) /* enable direct I/O to ports */
X#define KDDISABIO (KIOC|61) /* disable direct I/O to ports */
X
X/*
X* INLINE i386 ASM CODE FOR OUTB TO CPU MEMORY
X*/
X#ifndef INLINE
Xasm int outb(port,val)
X{
X%reg port,val;
X movl port, %edx
X movl val, %eax
X outb (%dx)
X%reg port; mem val;
X movl port, %edx
X movb val, %al
X outb (%dx)
X%mem port; reg val;
X movw port, %dx
X movl val, %eax
X outb (%dx)
X%mem port,val;
X movw port, %dx
X movb val, %al
X outb (%dx)
X}
X
X/*
X* INLINE i386 ASM CODE FOR INB FROM CPU MEMORY
X*/
X
Xasm int inb(port)
X{
X%reg port;
X subl %eax, %eax
X movl port, %edx
X inb (%dx)
X%mem port;
X subl %eax, %eax
X movw port, %dx
X inb (%dx)
X}
X
X#else
X#include "inline.h"
X#endif
X
X/*
X*
X* main() - EGA/VGA port control, 1-2 calls in 1 cmd line
X*
X*/
X
X/* Not used now */
X/* NOTUSED */
X#define black 30
X#define red 31
X#define green 32
X#define yellow 33
X#define blue 34
X#define magenta 35
X#define cyan 36
X#define white 37
X
Xint memfd; /* ptr to device */
Xchar name[30]; /* device name storage */
X
Xmain(argc,argv)
Xint argc;
Xchar **argv;
X{
X
X ushort port, port1, data1, data2;
X extern int inb(), outb(), errno;
X extern void color();
X char *tty(), *DEV = name;
X struct kd_memloc *kdmem;
X struct reginfo *rgi;
X
X if(argc == 1) {
X fprintf(stderr,"%s: Usage: port <F color #> <B color #> \n",argv[0]);
X fprintf(stderr,"Usage:port <b> default background color blue\n");
X fprintf(stderr," [h] color help list\n");
X fprintf(stderr," [x] blank screen\n");
X fprintf(stderr," [s] color # (set color)\n");
X exit(1);
X }
X if(argc == 2 && (strcmp(argv[1],"h") == 0)) {
X fprintf(stderr,"Color Number Color\n");
X fprintf(stderr," 0 black\n");
X fprintf(stderr," 1 blue\n");
X fprintf(stderr," 2 green\n");
X fprintf(stderr," 3 cyan\n");
X fprintf(stderr," 4 red\n");
X fprintf(stderr," 5 magenta\n");
X fprintf(stderr," 6 brown\n");
X fprintf(stderr," 7 white\n");
X fprintf(stderr," 8 gray\n");
X fprintf(stderr," 9 lt blue\n");
X fprintf(stderr," A lt green\n");
X fprintf(stderr," B lt cyan\n");
X fprintf(stderr," C lt red\n");
X fprintf(stderr," D lt magenta\n");
X fprintf(stderr," E lt brown (yellow)\n");
X fprintf(stderr," F bright white\n");
X exit(0);
X }
X
X if(strcmp((DEV = tty()), "NOTTY") != 0) { /* get device name */
X if ((memfd = open(DEV, 2)) == -1) {
X perror(DEV);
X exit(1);
X }
X } else {
X perror("not a tty");
X exit(1);
X }
X if(argc == 3 && (strcmp(argv[1],"s") == 0)) {
X data1 = itox(argv[2]);
X if(data1 <= 0xf && data1 >= 0x0) {
X ioctl(memfd,KDENABIO,0);/* Enable i/o to port */
X inb(0x3da); /* clear input stat reg */
X outb(0x3c0,0x20); /* Select pallet Enable */
X errno=0;
X outb(0x3c0,data1); /* Select color */
X if(errno)
X fprintf(stderr,"Error outb %d\n",errno);
X ioctl(memfd,KDDISABIO,0);/* Disable i/o to port */
X }
X else
X fprintf(stderr,"%s:input range not 0x0 - 0xf\n",argv[0]);
X close(memfd);
X exit(1);
X }
X if(argc == 2 && (strcmp(argv[1],"x") == 0)) {
X ioctl(memfd,KDENABIO,0); /* Enable i/o to port */
X inb(0x3da); /* clear input stat reg */
X errno=0;
X outb(0x3c0,0x0); /* turn screen off */
X if(errno)
X fprintf(stderr,"Error outb %d\n",errno);
X ioctl(memfd,KDDISABIO,0); /* Disable i/o to port */
X close(memfd);
X exit(1);
X }
X if(argc == 2 && (strcmp(argv[1],"b") == 0)) {
X ioctl(memfd,KDENABIO,0); /* Enable i/o to port */
X inb(0x3da); /* clear input stat reg */
X errno=0;
X outb(0x3c0,0x20); /* Select pallet Enable */
X outb(0x3c0,0x7); /* Select forgnd white */
X inb(0x3da); /* clear input stat reg */
X outb(0x3c0,0x20); /* Select pallet Enable */
X outb(0x3c0,0x1); /* Select backgnd blue */
X if(errno)
X fprintf(stderr,"Error outb %d\n",errno);
X ioctl(memfd,KDDISABIO,0); /* Disable i/o to port */
X close(memfd);
X exit(1);
X }
X if(argv[1] != 0 && argv[2] != 0) { /* check args */
X data1 = itox(argv[1]);
X data2 = itox(argv[2]);
X if((data1 <= 0xf && data1 >= 0x0) && (data2 <= 0xf && data2 >= 0x0))
X {
X port = 0x3c0; /* attribute register port address */
X ioctl(memfd,KDENABIO,0); /* Enable i/o to port */
X inb(0x3da); /* clear input stat reg */
X errno=0;
X outb(0x3c0,0x20); /* Select pallet Enable */
X outb(port,data1); /* set foreground */
X inb(0x3da); /* clear input stat reg */
X outb(0x3c0,0x20); /* Select pallet Enable */
X outb(port,data2); /* set background */
X if(errno)
X fprintf(stderr,"%s: Error outb erron:%d\n",argv[0],errno);
X ioctl(memfd,KDDISABIO,0); /* Disable i/o to port */
X }
X else
X fprintf(stderr,"%s: 2 args or input range not 0x0 - 0xf\n",argv[0]);
X }
X
X
X if(memfd) close(memfd); /* close device prt */
X}
X
Xitox(s)
Xchar *s;
X{
X int x;
X
X sscanf(s, "%x", &x); /* convert to hex */
X return x;
X}
X
X/*
X*
X* tty() - make sure we are calling from a tty
X*
X*
X*/
X
X#include "sys/stermio.h"
X
Xchar *ttyname();
X
Xextern int optind;
Xint lflg;
Xint sflg;
X
Xchar *tty()
X{
X char *p;
X register int i;
X p = name;
X
X p = ttyname(0);
X return( (p? p: "NOTTY"));
X}
X
X/* NOTUSED */
Xvoid color(color)
Xint color;
X{
Xfprintf(stdout,"\033\1330m\033\133%dm",color);
X}
!!!EOF!!!
if [ "`sum -r port.c`" -ne "38660 13 port.c" ]
then
echo WARNING port.c: extractions error
fi
fi
--
Ron Bolin (404) 529-3945
BellSouth Services Switching Technical Support
Rm 25M64 675 W. Peachtree St. Atlanta, Ga 30375
..!gatech!sbmsg1!bsts00!rlb