Hercules fix for GL Graphics Library

[Wietse Z. Venema]

I had some difficulty using the gl graphics libary with a vanilla
Hercules graphics adapter clone.  The following replacement for
setmode.c may help if you experience the same problem.  It may need
minor changes if your system does not run Microport System-V/AT.

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  hercmode.c
# Wrapped by wietse at wzv on Mon Mar 27 21:58:27 1989
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'hercmode.c' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'hercmode.c'\"
else
echo shar: Extracting \"'hercmode.c'\" \(1571 characters\)
sed "s/^X//" >'hercmode.c' <<'END_OF_FILE'
X/*
X * Switch hercules graphics/text mode for Microport SV/AT.
X * To be linked with mode.c (part of the gl distribution).
X * Only supports modes 2 (text) and 8 (page 0 graphics).
X *
X * W.Z. Venema (wietse at wzv.UUCP)
X */
X
X#include <stdio.h>
X#include <sys/types.h>
X#include <sys/io_op.h>
X
Xint             fd;
X
Xextern int      errno;
X
Xchar            gmode[12] = {		/* graphics mode */
X    0x35, 0x2d, 0x2e, 0x07,
X    0x5b, 0x02, 0x57, 0x57,
X    0x02, 0x03, 0x00, 0x00
X};
X
Xchar            tmode[12] = {		/* text mode */
X    0x61, 0x50, 0x52, 0x0f,
X    0x19, 0x06, 0x19, 0x19,
X    0x02, 0x0d, 0x0b, 0x0c
X};
X
Xsetmode(mode)
Xint             mode;
X{
X    register int    i;
X
X    if ((fd = open("/dev/mem", 2)) < 0) {
X	fprintf(stderr, "mode: open of /dev/mem failed\n");
X	perror("mode");
X	exit(1);
X    }
X    switch (mode) {
X    case 2:
X	outb(0x3bf, 0x03);			/* "hgc full" */
X	for (i = 0; i < 12; i++) {
X	    outb(0x3b4, i);
X	    outb(0x3b5, tmode[i]);
X	}
X	outb(0x3b8, 0x28);			/* enable blinker */
X	break;
X    case 8:
X	outb(0x3bf, 0x03);			/* "hgc full" */
X	for (i = 0; i < 12; i++) {
X	    outb(0x3b4, i);
X	    outb(0x3b5, gmode[i]);
X	}
X	outb(0x3b8, 0x0A);			/* enable graphics page 0 */
X	break;
X    default:
X	fprintf(stderr, "legal modes: 2 or 8\n");
X	sleep(3);				/* pause */
X	exit(1);
X	/* NOTREACHED */
X    }
X}
X
Xoutb(portno, data)
Xint             portno;
Xint             data;
X{
X    io_op_t         iop;
X
X    iop.io_port = portno;
X    iop.io_byte = data;
X    if (ioctl(fd, IOCIOP_WB, &iop) < 0) {
X	fprintf(stderr, "mode: error on IOCIOP_WB\n");
X	perror("mode");
X	exit(1);
X    }
X}
END_OF_FILE
if test 1571 -ne `wc -c <'hercmode.c'`; then
    echo shar: \"'hercmode.c'\" unpacked with wrong size!
fi
# end of 'hercmode.c'
fi
echo shar: End of shell archive.
exit 0
-- 
work:	wswietse at eutrc3.uucp	| Eindhoven University of Technology
work:	wswietse at heitue5.bitnet	| Mathematics and Computing Science
home:	wietse at wzv.uucp		| 5600 MB Eindhoven, The Netherlands