wietse@wzv.UUCP (Wietse Z. Venema) (03/28/89)
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@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@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@eutrc3.uucp | Eindhoven University of Technology
work: wswietse@heitue5.bitnet | Mathematics and Computing Science
home: wietse@wzv.uucp | 5600 MB Eindhoven, The Netherlands