jantypas@hope.UUCP (John Antypas) (06/19/88)
Included below is a driver for Microport Sys V/AT providing Hercules
graphics. The driver isn't very fancy, but it does work. Read the
herc.readme to find out about warnings. Don't consider this a finished
product. I know it needs work -- lots of it, but at least it functions.
All contributions are welcome.
Incidentally, no Microport source code was used in this driver other
than that provided with the linkkit. Nor were any Microport documents
used other than those provided with the linkkit. A special thanks
none the less to John Sully/ Dwight/Keith @ Uport as, even though they
didn't end up in the code, they still put up with my frustration calls.
John Antypas ...!soft21!jantypas
#--------------------------Cut Here--------------------------
#! /bin/sh
# This is a shell archive. Remove anything before the "#! /bin/sh" line,
# then unpack it by saving it in a file and typing "sh file."
#
# Wrapped by John Antypas (root) at soft21 on Sat Jun 18 18:06:58 1988
#
# unpacks with default permissions
#
# Contents : herc.readme herc.c test.c
#
if `test ! -s herc.readme`
then
echo "x - herc.readme"
cat > herc.readme << '@\Rogue\Monster\'
A Hercules Graphics Driver for Microport Unix Sys V/AT
Graphics code for MIcroport by David L. Smith
Driver translation by John Antypas
...!ucsd!ucrmath!soft21!jantypas
jantypas%soft21.UUCP@garp.MIT.EDU
The code that follows provides simple line graphics for a hercules monographics
card under Microport Unix Sys V/AT. This code should work with any Sys V/AT
version, but I have only tested it on 2.3.1L. It provides the full screen
window for graphics (720 x 350) and handles the details of switching the
console out etc.
The code does NOT lock the console out! ANY uuer openning /dev/herc will
cause the console to flip to graphics mode. For this reason, one should only
use graphics via a library which checks to see if that users termianl
is the console itself to prevent anyone from disturbing the work in progress
on the console displays!
When /dev/herc is openned, the console switches from text to graphics mode.
The screen will then clear. Commands are sent to the driver as follows:
int fd, open();
fd = open("/dev/herc", O_WRONLY);
write(fd, "Z", 1); /* Zap (clear) screen */
write(fd, "LwwwxxxyyyzzzW", 14);/* Draw line from www,xxx to yyy,zzz
WRITE mode -- white on black */
write(fd, "LwwwxxxyyyzzzE", 14);/* Same as above, but erase */
write(fd, "PxxxyyyW", 8); /* Plot point at xxx,yyy WRITE mode */
write(fd, "PxxxyyyE", 8); /* Erase point at xxx,yyy */
write(fd, "BwwwxxxyyyzzzW",14); /* Draw box with upper left at
www,xxx at lower right @ yyy,zzzz */
write (fd, "BwwwxxxyyyzzzE", 14); /* Erase above box */
write( fd, "Cxxxyyyccc",10); /* Put char ccc at xxx,yyy */
write (fd, "Sxxxyyyzzzbbbbbbbbbbb",len)
/* Write string of zzz chars. at xxx,yyy
litteral characters follow. */
close(fd); /* Return to console */
A test program is provided that shows these in action. All integers are
three digits in length, leading zeros must be provided. CCC is the ascii
code for a character with leading zeros if needed. bbbb are litteral letters
of the string ie: "S100100009Hi There!" means write a (S)tring at 100,100
consisting of the 9 characters "H I <space> T h e r e !"
One notable bug, when the device is closed, the cursor does not appear until
someone hits the console change screen key a few times. Any ideas why?
Some warnings. Driver space is always scarce so no real checking is done
on parameters beyond those which, if they we're wrong, would panic the kernel.
Screen size is:
For graphics: 000 -> 719 X 000 -> 347
For Text: 000 -> 089 X 000 -> 042 { Characters 8x8 }
My master file and dfile look like this (chooise your own device numbers)
herc 0 ocw c hg 0 15 1 { Master }
herc 0 1 { dfile }
Once again:
Z --- Zap screen (clear)
Cxxxyyyccc --- Put char ascii(ccc) at text pos. xxx,yyy
LwwwxxxyyyzzzU --- Line from (www,xxx) to (yyy,zzz)
BwwwxxxyyyzzzU --- Box from upper corner (www,xxx) to lower
corner (yyy,zzz)
Sxxxyyyzzzbbbbbbbbbbb..... --- Plot text string starting at text xxx,yyy
and plotting litteral letters (bbbbbb)
String is zzz bytes long.
PxxxyyyU --- Plot point at xxx,yyy
U is either W or E for WRITE or ERASE (white/black) for now.
Improvements:
This was done quick and dirty to get it out quickly. I've wanted it and have
seen that many others do too. The documentation needs work, I'm working on a
user C library interface that also checks to see if the console is in use,
and the performance (especially slomemset()) could be improved. Feel free
to change at will so long as I get the patches too! :-)
@\Rogue\Monster\
else
echo "shar: Will not over write herc.readme"
fi
if `test ! -s herc.c`
then
echo "x - herc.c"
cat > herc.c << '@\Rogue\Monster\'
/* ================= Hercules Graphics Code =========================== */
/* These routines provide basic line drawing graphics for the hercules */
/* monographics card under Microport Unix Sys V/AT 2.3. Written by */
/* John Antypas 12/12/87 and placed in the public domain. */
/* Property of Microport Inc. */
/* */
/* ==================================================================== */
/* Include files */
#include <sys/types.h>
#include <sys/param.h>
#include <sys/mmu.h>
#include <sys/seg.h>
#include <sys/map.h>
#include <sys/signal.h>
#include <sys/dir.h>
#include <sys/errno.h>
#include <sys/ioctl.h>
#include <sys/user.h>
#include <sys/sysmacros.h>
int herc_state; /* If !=0 herc in use. */
char command; /* Command byte */
long herc_base; /* Memory base */
char param_g[12]={ /* parameter table for 6845 video chip */
0x35, 0x2d, 0x2e, 0x07, /* graphics setup */
0x5b, 0x02, 0x57, 0x57,
0x02, 0x03, 0x00, 0x00};
char param_t[12]={ /* parameter table for 6845 video chip */
0x61, 0x50, 0x52, 0x0f, /* text setup */
0x19, 0x06, 0x19, 0x19,
0x02, 0x0d, 0x0b, 0x0c};
char masks[8]={
0x80, 0x40, 0x20, 0x10, 0x08, 0x04, 0x02, 0x01};
/* RAM-Loadable Character Sets for the IBM PC
Richard Wilton
July 1986
/* definitions for 8 by 8 characters 00 through FF */
static char hercchars[2048]={
0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000, /* 000 */
0x07E,0x081,0x0A5,0x081,0x0BD,0x099,0x081,0x07E, /* 001 */
0x07E,0x0FF,0x000,0x0FF,0x0C3,0x0E7,0x0FF,0x07E, /* 002 */
0x06C,0x0FE,0x0FE,0x0FE,0x07C,0x038,0x010,0x000, /* 003 */
0x010,0x038,0x07C,0x0FE,0x07C,0x038,0x010,0x000, /* 004 */
0x038,0x07C,0x038,0x0FE,0x0FE,0x07C,0x038,0x07C, /* 005 */
0x010,0x010,0x038,0x07C,0x0FE,0x07C,0x038,0x07C, /* 006 */
0x000,0x000,0x018,0x03C,0x03C,0x018,0x000,0x000, /* 007 */
0x0FF,0x0FF,0x0E7,0x0C3,0x0C3,0x0E7,0x0FF,0x0FF, /* 008 */
0x000,0x03C,0x066,0x042,0x042,0x066,0x03C,0x000, /* 009 */
0x0FF,0x0C3,0x099,0x0BD,0x0BD,0x099,0x0C3,0x0FF, /* 00A */
0x00F,0x007,0x00F,0x07D,0x0CC,0x0CC,0x0CC,0x078, /* 00B */
0x03C,0x066,0x066,0x066,0x03C,0x018,0x07E,0x018, /* 00C */
0x03F,0x033,0x03F,0x030,0x030,0x070,0x0F0,0x0E0, /* 00D */
0x07F,0x063,0x07F,0x063,0x063,0x067,0x0E6,0x0C0, /* 00E */
0x099,0x05A,0x03C,0x0E7,0x0E7,0x03C,0x05A,0x099, /* 00F */
0x080,0x0E0,0x0F8,0x0FE,0x0F8,0x0E0,0x080,0x000, /* 010 */
0x002,0x00E,0x03E,0x0FE,0x03E,0x00E,0x002,0x000, /* 011 */
0x018,0x03C,0x07E,0x018,0x018,0x07E,0x03C,0x018, /* 012 */
0x066,0x066,0x066,0x066,0x066,0x000,0x066,0x000, /* 013 */
0x07F,0x000,0x000,0x07B,0x01B,0x01B,0x01B,0x000, /* 014 */
0x03E,0x063,0x038,0x06C,0x06C,0x038,0x0CC,0x078, /* 015 */
0x000,0x000,0x000,0x000,0x07E,0x07E,0x07E,0x000, /* 016 */
0x018,0x03C,0x07E,0x018,0x07E,0x03C,0x018,0x0FF, /* 017 */
0x018,0x03C,0x07E,0x018,0x018,0x018,0x018,0x000, /* 018 */
0x018,0x018,0x018,0x018,0x07E,0x03C,0x018,0x000, /* 019 */
0x000,0x018,0x00C,0x0FE,0x00C,0x018,0x000,0x000, /* 01A */
0x000,0x030,0x060,0x0FE,0x060,0x030,0x000,0x000, /* 01B */
0x000,0x000,0x0C0,0x0C0,0x0C0,0x0FE,0x000,0x000, /* 01C */
0x000,0x024,0x066,0x0FF,0x066,0x024,0x000,0x000, /* 01D */
0x000,0x018,0x03C,0x07E,0x0FF,0x0FF,0x000,0x000, /* 01E */
0x000,0x0FF,0x0FF,0x07E,0x03C,0x018,0x000,0x000, /* 01F */
0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000, /* 020 */
0x030,0x078,0x078,0x030,0x030,0x000,0x030,0x000, /* 021 */
0x06C,0x06C,0x06C,0x000,0x000,0x000,0x000,0x000, /* 022 */
0x06C,0x06C,0x0FE,0x06C,0x0FE,0x06C,0x06C,0x000, /* 023 */
0x030,0x07C,0x0C0,0x078,0x00C,0x0F8,0x030,0x000, /* 024 */
0x000,0x0C6,0x0CC,0x018,0x030,0x066,0x0C6,0x000, /* 025 */
0x038,0x06C,0x038,0x076,0x0DC,0x0CC,0x076,0x000, /* 026 */
0x060,0x060,0x0C0,0x000,0x000,0x000,0x000,0x000, /* 027 */
0x018,0x030,0x060,0x060,0x060,0x030,0x018,0x000, /* 028 */
0x060,0x030,0x018,0x018,0x018,0x030,0x060,0x000, /* 029 */
0x000,0x066,0x03C,0x0FF,0x03C,0x066,0x000,0x000, /* 02A */
0x000,0x030,0x030,0x0FC,0x030,0x030,0x000,0x000, /* 02B */
0x000,0x000,0x000,0x000,0x000,0x030,0x030,0x060, /* 02C */
0x000,0x000,0x000,0x0FC,0x000,0x000,0x000,0x000, /* 02D */
0x000,0x000,0x000,0x000,0x000,0x030,0x030,0x000, /* 02E */
0x006,0x00C,0x018,0x030,0x060,0x0C0,0x080,0x000, /* 02F */
0x07C,0x0C6,0x0CE,0x0DE,0x0F6,0x0E6,0x07C,0x000, /* 030 */
0x030,0x070,0x030,0x030,0x030,0x030,0x0FC,0x000, /* 031 */
0x078,0x0CC,0x00C,0x038,0x060,0x0CC,0x0FC,0x000, /* 032 */
0x078,0x0CC,0x00C,0x038,0x00C,0x0CC,0x078,0x000, /* 033 */
0x01C,0x03C,0x06C,0x0CC,0x0FE,0x00C,0x01E,0x000, /* 034 */
0x0FC,0x0C0,0x0F8,0x00C,0x00C,0x0CC,0x078,0x000, /* 035 */
0x038,0x060,0x0C0,0x0F8,0x0CC,0x0CC,0x078,0x000, /* 036 */
0x0FC,0x0CC,0x00C,0x018,0x030,0x030,0x030,0x000, /* 037 */
0x078,0x0CC,0x0CC,0x078,0x0CC,0x0CC,0x078,0x000, /* 038 */
0x078,0x0CC,0x0CC,0x07C,0x00C,0x018,0x070,0x000, /* 039 */
0x000,0x030,0x030,0x000,0x000,0x030,0x030,0x000, /* 03A */
0x000,0x030,0x030,0x000,0x000,0x030,0x030,0x060, /* 03B */
0x018,0x030,0x060,0x0C0,0x060,0x030,0x018,0x000, /* 03C */
0x000,0x000,0x0FC,0x000,0x000,0x0FC,0x000,0x000, /* 03D */
0x060,0x030,0x018,0x00C,0x018,0x030,0x060,0x000, /* 03E */
0x078,0x0CC,0x00C,0x018,0x030,0x000,0x030,0x000, /* 03F */
0x07C,0x0C6,0x0DE,0x0DE,0x0DE,0x0C0,0x078,0x000, /* 040 */
0x030,0x078,0x0CC,0x0CC,0x0FC,0x0CC,0x0CC,0x000, /* 041 */
0x0FC,0x066,0x066,0x07C,0x066,0x066,0x0FC,0x000, /* 042 */
0x03C,0x066,0x0C0,0x0C0,0x0C0,0x066,0x03C,0x000, /* 043 */
0x0F8,0x06C,0x066,0x066,0x066,0x06C,0x0F8,0x000, /* 044 */
0x0FE,0x062,0x068,0x078,0x068,0x062,0x0FE,0x000, /* 045 */
0x0FE,0x062,0x068,0x078,0x068,0x060,0x0F0,0x000, /* 046 */
0x03C,0x066,0x0C0,0x0C0,0x0CE,0x066,0x03E,0x000, /* 047 */
0x0CC,0x0CC,0x0CC,0x0FC,0x0CC,0x0CC,0x0CC,0x000, /* 048 */
0x078,0x030,0x030,0x030,0x030,0x030,0x078,0x000, /* 049 */
0x01E,0x00C,0x00C,0x00C,0x0CC,0x0CC,0x078,0x000, /* 04A */
0x0E6,0x066,0x06C,0x078,0x06C,0x066,0x0E6,0x000, /* 04B */
0x0F0,0x060,0x060,0x060,0x062,0x066,0x0FE,0x000, /* 04C */
0x0C6,0x0EE,0x0FE,0x0FE,0x0D6,0x0C6,0x0C6,0x000, /* 04D */
0x0C6,0x0E6,0x0F6,0x0DE,0x0CE,0x0C6,0x0C6,0x000, /* 04E */
0x038,0x06C,0x0C6,0x0C6,0x0C6,0x06C,0x038,0x000, /* 04F */
0x0FC,0x066,0x066,0x07C,0x060,0x060,0x0F0,0x000, /* 050 */
0x078,0x0CC,0x0CC,0x0CC,0x0DC,0x078,0x01C,0x000, /* 051 */
0x0FC,0x066,0x066,0x07C,0x06C,0x066,0x0E6,0x000, /* 052 */
0x078,0x0CC,0x0E0,0x070,0x01C,0x0CC,0x078,0x000, /* 053 */
0x0FC,0x0B4,0x030,0x030,0x030,0x030,0x078,0x000, /* 054 */
0x0CC,0x0CC,0x0CC,0x0CC,0x0CC,0x0CC,0x0FC,0x000, /* 055 */
0x0CC,0x0CC,0x0CC,0x0CC,0x0CC,0x078,0x030,0x000, /* 056 */
0x0C6,0x0C6,0x0C6,0x0D6,0x0FE,0x0EE,0x0C6,0x000, /* 057 */
0x0C6,0x0C6,0x06C,0x038,0x038,0x06C,0x0C6,0x000, /* 058 */
0x0CC,0x0CC,0x0CC,0x078,0x030,0x030,0x078,0x000, /* 059 */
0x0FE,0x0C6,0x08C,0x018,0x032,0x066,0x0FE,0x000, /* 05A */
0x078,0x060,0x060,0x060,0x060,0x060,0x078,0x000, /* 05B */
0x0C0,0x060,0x030,0x018,0x00C,0x006,0x002,0x000, /* 05C */
0x078,0x018,0x018,0x018,0x018,0x018,0x078,0x000, /* 05D */
0x010,0x038,0x06C,0x0C6,0x000,0x000,0x000,0x000, /* 05E */
0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x0FF, /* 05F */
0x030,0x030,0x018,0x000,0x000,0x000,0x000,0x000, /* 060 */
0x000,0x000,0x078,0x00C,0x07C,0x0CC,0x076,0x000, /* 061 */
0x0E0,0x060,0x060,0x07C,0x066,0x066,0x0DC,0x000, /* 062 */
0x000,0x000,0x078,0x0CC,0x0C0,0x0CC,0x078,0x000, /* 063 */
0x01C,0x00C,0x00C,0x07C,0x0CC,0x0CC,0x076,0x000, /* 064 */
0x000,0x000,0x078,0x0CC,0x0FC,0x0C0,0x078,0x000, /* 065 */
0x038,0x06C,0x060,0x0F0,0x060,0x060,0x0F0,0x000, /* 066 */
0x000,0x000,0x076,0x0CC,0x0CC,0x07C,0x00C,0x0F8, /* 067 */
0x0E0,0x060,0x06C,0x076,0x066,0x066,0x0E6,0x000, /* 068 */
0x030,0x000,0x070,0x030,0x030,0x030,0x078,0x000, /* 069 */
0x00C,0x000,0x00C,0x00C,0x00C,0x0CC,0x0CC,0x078, /* 06A */
0x0E0,0x060,0x066,0x06C,0x078,0x06C,0x0E6,0x000, /* 06B */
0x070,0x030,0x030,0x030,0x030,0x030,0x078,0x000, /* 06C */
0x000,0x000,0x0CC,0x0FE,0x0FE,0x0D6,0x0C6,0x000, /* 06D */
0x000,0x000,0x0F8,0x0CC,0x0CC,0x0CC,0x0CC,0x000, /* 06E */
0x000,0x000,0x078,0x0CC,0x0CC,0x0CC,0x078,0x000, /* 06F */
0x000,0x000,0x0DC,0x066,0x066,0x07C,0x060,0x0F0, /* 070 */
0x000,0x000,0x076,0x0CC,0x0CC,0x07C,0x00C,0x01E, /* 071 */
0x000,0x000,0x0DC,0x076,0x066,0x060,0x0F0,0x000, /* 072 */
0x000,0x000,0x07C,0x0C0,0x078,0x00C,0x0F8,0x000, /* 073 */
0x010,0x030,0x07C,0x030,0x030,0x034,0x018,0x000, /* 074 */
0x000,0x000,0x0CC,0x0CC,0x0CC,0x0CC,0x076,0x000, /* 075 */
0x000,0x000,0x0CC,0x0CC,0x0CC,0x078,0x030,0x000, /* 076 */
0x000,0x000,0x0C6,0x0D6,0x0FE,0x0FE,0x06C,0x000, /* 077 */
0x000,0x000,0x0C6,0x06C,0x038,0x06C,0x0C6,0x000, /* 078 */
0x000,0x000,0x0CC,0x0CC,0x0CC,0x07C,0x00C,0x0F8, /* 079 */
0x000,0x000,0x0FC,0x098,0x030,0x064,0x0FC,0x000, /* 07A */
0x01C,0x030,0x030,0x0E0,0x030,0x030,0x01C,0x000, /* 07B */
0x018,0x018,0x018,0x000,0x018,0x018,0x018,0x000, /* 07C */
0x0E0,0x030,0x030,0x01C,0x030,0x030,0x0E0,0x000, /* 07D */
0x076,0x0DC,0x000,0x000,0x000,0x000,0x000,0x000, /* 07E */
0x000,0x010,0x038,0x06C,0x0C6,0x0C6,0x0FE,0x000, /* 07F */
0x078,0x0CC,0x0C0,0x0CC,0x078,0x018,0x00C,0x078, /* 080 */
0x000,0x066,0x000,0x066,0x066,0x066,0x03F,0x000, /* 081 */
0x00E,0x000,0x03C,0x066,0x07E,0x060,0x03C,0x000, /* 082 */
0x07E,0x0C3,0x03C,0x006,0x03E,0x066,0x03F,0x000, /* 083 */
0x066,0x000,0x03C,0x006,0x03E,0x066,0x03F,0x000, /* 084 */
0x070,0x000,0x03C,0x006,0x03E,0x066,0x03F,0x000, /* 085 */
0x018,0x018,0x03C,0x006,0x03E,0x066,0x03F,0x000, /* 086 */
0x000,0x000,0x03C,0x060,0x060,0x03C,0x006,0x01C, /* 087 */
0x07E,0x0C3,0x03C,0x066,0x07E,0x060,0x03C,0x000, /* 088 */
0x066,0x000,0x03C,0x066,0x07E,0x060,0x03C,0x000, /* 089 */
0x070,0x000,0x03C,0x066,0x07E,0x060,0x03C,0x000, /* 08A */
0x066,0x000,0x038,0x018,0x018,0x018,0x03C,0x000, /* 08B */
0x07C,0x0C6,0x038,0x018,0x018,0x018,0x03C,0x000, /* 08C */
0x070,0x000,0x038,0x018,0x018,0x018,0x03C,0x000, /* 08D */
0x063,0x01C,0x036,0x063,0x07F,0x063,0x063,0x000, /* 08E */
0x018,0x018,0x000,0x03C,0x066,0x07E,0x066,0x000, /* 08F */
0x00E,0x000,0x07E,0x030,0x03C,0x030,0x07E,0x000, /* 090 */
0x000,0x000,0x07F,0x00C,0x07F,0x0CC,0x07F,0x000, /* 091 */
0x01F,0x036,0x066,0x07F,0x066,0x066,0x067,0x000, /* 092 */
0x03C,0x066,0x000,0x03C,0x066,0x066,0x03C,0x000, /* 093 */
0x000,0x066,0x000,0x03C,0x066,0x066,0x03C,0x000, /* 094 */
0x000,0x070,0x000,0x03C,0x066,0x066,0x03C,0x000, /* 095 */
0x03C,0x066,0x000,0x066,0x066,0x066,0x03F,0x000, /* 096 */
0x000,0x070,0x000,0x066,0x066,0x066,0x03F,0x000, /* 097 */
0x000,0x066,0x000,0x066,0x066,0x03E,0x006,0x07C, /* 098 */
0x0C3,0x018,0x03C,0x066,0x066,0x03C,0x018,0x000, /* 099 */
0x066,0x000,0x066,0x066,0x066,0x066,0x03C,0x000, /* 09A */
0x018,0x018,0x07E,0x0C0,0x0C0,0x07E,0x018,0x018, /* 09B */
0x01C,0x036,0x032,0x078,0x030,0x073,0x07E,0x000, /* 09C */
0x066,0x066,0x03C,0x07E,0x018,0x07E,0x018,0x018, /* 09D */
0x0F8,0x0CC,0x0CC,0x0FA,0x0C6,0x0CF,0x0C6,0x0C7, /* 09E */
0x00E,0x01B,0x018,0x03C,0x018,0x018,0x0D8,0x070, /* 09F */
0x00E,0x000,0x03C,0x006,0x03E,0x066,0x03F,0x000, /* 0A0 */
0x01C,0x000,0x038,0x018,0x018,0x018,0x03C,0x000, /* 0A1 */
0x000,0x00E,0x000,0x03C,0x066,0x066,0x03C,0x000, /* 0A2 */
0x000,0x00E,0x000,0x066,0x066,0x066,0x03F,0x000, /* 0A3 */
0x000,0x07C,0x000,0x07C,0x066,0x066,0x066,0x000, /* 0A4 */
0x07E,0x000,0x066,0x076,0x07E,0x06E,0x066,0x000, /* 0A5 */
0x03C,0x06C,0x06C,0x03E,0x000,0x07E,0x000,0x000, /* 0A6 */
0x038,0x06C,0x06C,0x038,0x000,0x07C,0x000,0x000, /* 0A7 */
0x018,0x000,0x018,0x030,0x060,0x066,0x03C,0x000, /* 0A8 */
0x000,0x000,0x000,0x07E,0x060,0x060,0x000,0x000, /* 0A9 */
0x000,0x000,0x000,0x07E,0x006,0x006,0x000,0x000, /* 0AA */
0x0C3,0x0C6,0x0CC,0x0DE,0x033,0x066,0x0CC,0x00F, /* 0AB */
0x0C3,0x0C6,0x0CC,0x000,0x037,0x06F,0x0CF,0x003, /* 0AC */
0x018,0x018,0x000,0x018,0x018,0x018,0x018,0x000, /* 0AD */
0x000,0x033,0x066,0x0CC,0x066,0x033,0x000,0x000, /* 0AE */
0x000,0x0CC,0x066,0x033,0x066,0x0CC,0x000,0x000, /* 0AF */
0x022,0x088,0x022,0x088,0x022,0x088,0x022,0x088, /* 0B0 */
0x055,0x0AA,0x055,0x0AA,0x055,0x0AA,0x055,0x0AA, /* 0B1 */
0x000,0x077,0x000,0x0EE,0x000,0x077,0x000,0x0EE, /* 0B2 */
0x018,0x018,0x018,0x018,0x018,0x018,0x018,0x018, /* 0B3 */
0x018,0x018,0x018,0x018,0x0F8,0x018,0x018,0x018, /* 0B4 */
0x018,0x018,0x0F8,0x018,0x0F8,0x018,0x018,0x018, /* 0B5 */
0x036,0x036,0x036,0x036,0x0F6,0x036,0x036,0x036, /* 0B6 */
0x000,0x000,0x000,0x000,0x0FE,0x036,0x036,0x036, /* 0B7 */
0x000,0x000,0x0F8,0x018,0x0F8,0x018,0x018,0x018, /* 0B8 */
0x036,0x036,0x0F6,0x006,0x0F6,0x036,0x036,0x036, /* 0B9 */
0x036,0x036,0x036,0x036,0x036,0x036,0x036,0x036, /* 0BA */
0x000,0x000,0x0FE,0x006,0x0F6,0x036,0x036,0x036, /* 0BB */
0x036,0x036,0x0F6,0x006,0x0FE,0x000,0x000,0x000, /* 0BC */
0x036,0x036,0x036,0x036,0x0FE,0x000,0x000,0x000, /* 0BD */
0x018,0x018,0x0F8,0x018,0x0F8,0x000,0x000,0x000, /* 0BE */
0x000,0x000,0x000,0x000,0x0F8,0x018,0x018,0x018, /* 0BF */
0x018,0x018,0x018,0x018,0x01F,0x000,0x000,0x000, /* 0C0 */
0x018,0x018,0x018,0x018,0x0FF,0x000,0x000,0x000, /* 0C1 */
0x000,0x000,0x000,0x000,0x0FF,0x018,0x018,0x018, /* 0C2 */
0x018,0x018,0x018,0x018,0x01F,0x018,0x018,0x018, /* 0C3 */
0x000,0x000,0x000,0x000,0x0FF,0x000,0x000,0x000, /* 0C4 */
0x018,0x018,0x018,0x018,0x0FF,0x018,0x018,0x018, /* 0C5 */
0x018,0x018,0x01F,0x018,0x01F,0x018,0x018,0x018, /* 0C6 */
0x036,0x036,0x036,0x036,0x037,0x036,0x036,0x036, /* 0C7 */
0x036,0x036,0x037,0x030,0x03F,0x000,0x000,0x000, /* 0C8 */
0x000,0x000,0x03F,0x030,0x037,0x036,0x036,0x036, /* 0C9 */
0x036,0x036,0x0F7,0x000,0x0FF,0x000,0x000,0x000, /* 0CA */
0x000,0x000,0x0FF,0x000,0x0F7,0x036,0x036,0x036, /* 0CB */
0x036,0x036,0x037,0x030,0x037,0x036,0x036,0x036, /* 0CC */
0x000,0x000,0x0FF,0x000,0x0FF,0x000,0x000,0x000, /* 0CD */
0x036,0x036,0x0F7,0x000,0x0F7,0x036,0x036,0x036, /* 0CE */
0x018,0x018,0x0FF,0x000,0x0FF,0x000,0x000,0x000, /* 0CF */
0x036,0x036,0x036,0x036,0x0FF,0x000,0x000,0x000, /* 0D0 */
0x000,0x000,0x0FF,0x000,0x0FF,0x018,0x018,0x018, /* 0D1 */
0x000,0x000,0x000,0x000,0x0FF,0x036,0x036,0x036, /* 0D2 */
0x036,0x036,0x036,0x036,0x03F,0x000,0x000,0x000, /* 0D3 */
0x018,0x018,0x01F,0x018,0x01F,0x000,0x000,0x000, /* 0D4 */
0x000,0x000,0x01F,0x018,0x01F,0x018,0x018,0x018, /* 0D5 */
0x000,0x000,0x000,0x000,0x03F,0x036,0x036,0x036, /* 0D6 */
0x036,0x036,0x036,0x036,0x0FF,0x036,0x036,0x036, /* 0D7 */
0x018,0x018,0x0FF,0x018,0x0FF,0x018,0x018,0x018, /* 0D8 */
0x018,0x018,0x018,0x018,0x0F8,0x000,0x000,0x000, /* 0D9 */
0x000,0x000,0x000,0x000,0x01F,0x018,0x018,0x018, /* 0DA */
0x0FF,0x0FF,0x0FF,0x0FF,0x0FF,0x0FF,0x0FF,0x0FF, /* 0 */
0x000,0x000,0x000,0x000,0x0FF,0x0FF,0x0FF,0x0FF, /* 0DC */
0x0F0,0x0F0,0x0F0,0x0F0,0x0F0,0x0F0,0x0F0,0x0F0, /* 0DD */
0x00F,0x00F,0x00F,0x00F,0x00F,0x00F,0x00F,0x00F, /* 0DE */
0x0FF,0x0FF,0x0FF,0x0FF,0x000,0x000,0x000,0x000, /* 0DF */
0x000,0x000,0x03B,0x06E,0x064,0x06E,0x03B,0x000, /* 0E0 */
0x000,0x03C,0x066,0x07C,0x066,0x07C,0x060,0x060, /* 0E1 */
0x000,0x07E,0x066,0x060,0x060,0x060,0x060,0x000, /* 0E2 */
0x000,0x07F,0x036,0x036,0x036,0x036,0x036,0x000, /* 0E3 */
0x07E,0x066,0x030,0x018,0x030,0x066,0x07E,0x000, /* 0E4 */
0x000,0x000,0x03F,0x06C,0x06C,0x06C,0x038,0x000, /* 0E5 */
0x000,0x033,0x033,0x033,0x033,0x03E,0x030,0x060, /* 0E6 */
0x000,0x03B,0x06E,0x00C,0x00C,0x00C,0x00C,0x000, /* 0E7 */
0x07E,0x018,0x03C,0x066,0x066,0x03C,0x018,0x07E, /* 0E8 */
0x01C,0x036,0x063,0x07F,0x063,0x036,0x01C,0x000, /* 0E9 */
0x01C,0x036,0x063,0x063,0x036,0x036,0x077,0x000, /* 0EA */
0x00E,0x018,0x00C,0x03E,0x066,0x066,0x03C,0x000, /* 0EB */
0x000,0x000,0x07E,0x000,0x000,0x07E,0x000,0x000, /* 0EC */
0x006,0x00C,0x07E,0x000,0x000,0x07E,0x060,0x0C0, /* 0ED */
0x01C,0x060,0x0C0,0x0FC,0x0C0,0x060,0x01C,0x000, /* 0EE */
0x03C,0x066,0x066,0x066,0x066,0x066,0x066,0x000, /* 0EF */
0x000,0x07E,0x000,0x07E,0x000,0x07E,0x000,0x000, /* 0F0 */
0x018,0x018,0x07E,0x018,0x018,0x000,0x07E,0x000, /* 0F1 */
0x030,0x018,0x00C,0x018,0x030,0x000,0x07E,0x000, /* 0F2 */
0x00C,0x018,0x030,0x018,0x00C,0x000,0x07E,0x000, /* 0F3 */
0x00E,0x01B,0x01B,0x018,0x018,0x018,0x018,0x018, /* 0F4 */
0x018,0x018,0x018,0x018,0x018,0x0D8,0x0D8,0x070, /* 0F5 */
0x018,0x018,0x000,0x07E,0x000,0x018,0x018,0x000, /* 0F6 */
0x000,0x076,0x0DC,0x000,0x076,0x0DC,0x000,0x000, /* 0F7 */
0x038,0x06C,0x06C,0x038,0x000,0x000,0x000,0x000, /* 0F8 */
0x000,0x000,0x000,0x018,0x018,0x000,0x000,0x000, /* 0F9 */
0x000,0x000,0x000,0x000,0x018,0x000,0x000,0x000, /* 0FA */
0x00F,0x00C,0x00C,0x00C,0x0EC,0x06C,0x03C,0x01C, /* 0FB */
0x078,0x06C,0x06C,0x06C,0x06C,0x000,0x000,0x000, /* 0FC */
0x070,0x018,0x030,0x060,0x078,0x000,0x000,0x000, /* 0FD */
0x000,0x000,0x03C,0x03C,0x03C,0x03C,0x000,0x000, /* 0FE */
0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000 /* 0FF */
};
static long y_offset[348] = {
0x00000,0x02000,0x04000,0x06000,0x0005a,0x0205a,0x0405a,
0x0605a,0x000b4,0x020b4,0x040b4,0x060b4,0x0010e,0x0210e,
0x0410e,0x0610e,0x00168,0x02168,0x04168,0x06168,0x001c2,
0x021c2,0x041c2,0x061c2,0x0021c,0x0221c,0x0421c,0x0621c,
0x00276,0x02276,0x04276,0x06276,0x002d0,0x022d0,0x042d0,
0x062d0,0x0032a,0x0232a,0x0432a,0x0632a,0x00384,0x02384,
0x04384,0x06384,0x003de,0x023de,0x043de,0x063de,0x00438,
0x02438,0x04438,0x06438,0x00492,0x02492,0x04492,0x06492,
0x004ec,0x024ec,0x044ec,0x064ec,0x00546,0x02546,0x04546,
0x06546,0x005a0,0x025a0,0x045a0,0x065a0,0x005fa,0x025fa,
0x045fa,0x065fa,0x00654,0x02654,0x04654,0x06654,0x006ae,
0x026ae,0x046ae,0x066ae,0x00708,0x02708,0x04708,0x06708,
0x00762,0x02762,0x04762,0x06762,0x007bc,0x027bc,0x047bc,
0x067bc,0x00816,0x02816,0x04816,0x06816,0x00870,0x02870,
0x04870,0x06870,0x008ca,0x028ca,0x048ca,0x068ca,0x00924,
0x02924,0x04924,0x06924,0x0097e,0x0297e,0x0497e,0x0697e,
0x009d8,0x029d8,0x049d8,0x069d8,0x00a32,0x02a32,0x04a32,
0x06a32,0x00a8c,0x02a8c,0x04a8c,0x06a8c,0x00ae6,0x02ae6,
0x04ae6,0x06ae6,0x00b40,0x02b40,0x04b40,0x06b40,0x00b9a,
0x02b9a,0x04b9a,0x06b9a,0x00bf4,0x02bf4,0x04bf4,0x06bf4,
0x00c4e,0x02c4e,0x04c4e,0x06c4e,0x00ca8,0x02ca8,0x04ca8,
0x06ca8,0x00d02,0x02d02,0x04d02,0x06d02,0x00d5c,0x02d5c,
0x04d5c,0x06d5c,0x00db6,0x02db6,0x04db6,0x06db6,0x00e10,
0x02e10,0x04e10,0x06e10,0x00e6a,0x02e6a,0x04e6a,0x06e6a,
0x00ec4,0x02ec4,0x04ec4,0x06ec4,0x00f1e,0x02f1e,0x04f1e,
0x06f1e,0x00f78,0x02f78,0x04f78,0x06f78,0x00fd2,0x02fd2,
0x04fd2,0x06fd2,0x0102c,0x0302c,0x0502c,0x0702c,0x01086,
0x03086,0x05086,0x07086,0x010e0,0x030e0,0x050e0,0x070e0,
0x0113a,0x0313a,0x0513a,0x0713a,0x01194,0x03194,0x05194,
0x07194,0x011ee,0x031ee,0x051ee,0x071ee,0x01248,0x03248,
0x05248,0x07248,0x012a2,0x032a2,0x052a2,0x072a2,0x012fc,
0x032fc,0x052fc,0x072fc,0x01356,0x03356,0x05356,0x07356,
0x013b0,0x033b0,0x053b0,0x073b0,0x0140a,0x0340a,0x0540a,
0x0740a,0x01464,0x03464,0x05464,0x07464,0x014be,0x034be,
0x054be,0x074be,0x01518,0x03518,0x05518,0x07518,0x01572,
0x03572,0x05572,0x07572,0x015cc,0x035cc,0x055cc,0x075cc,
0x01626,0x03626,0x05626,0x07626,0x01680,0x03680,0x05680,
0x07680,0x016da,0x036da,0x056da,0x076da,0x01734,0x03734,
0x05734,0x07734,0x0178e,0x0378e,0x0578e,0x0778e,0x017e8,
0x037e8,0x057e8,0x077e8,0x01842,0x03842,0x05842,0x07842,
0x0189c,0x0389c,0x0589c,0x0789c,0x018f6,0x038f6,0x058f6,
0x078f6,0x01950,0x03950,0x05950,0x07950,0x019aa,0x039aa,
0x059aa,0x079aa,0x01a04,0x03a04,0x05a04,0x07a04,0x01a5e,
0x03a5e,0x05a5e,0x07a5e,0x01ab8,0x03ab8,0x05ab8,0x07ab8,
0x01b12,0x03b12,0x05b12,0x07b12,0x01b6c,0x03b6c,0x05b6c,
0x07b6c,0x01bc6,0x03bc6,0x05bc6,0x07bc6,0x01c20,0x03c20,
0x05c20,0x07c20,0x01c7a,0x03c7a,0x05c7a,0x07c7a,0x01cd4,
0x03cd4,0x05cd4,0x07cd4,0x01d2e,0x03d2e,0x05d2e,0x07d2e,
0x01d88,0x03d88,0x05d88,0x07d88,0x01de2,0x03de2,0x05de2,
0x07de2,0x01e3c,0x03e3c,0x05e3c,0x07e3c
};
slomemset()
{
long i;
for (i = 0xb0000; i < 0xb7fff; i ++)
{ spbyte(i, 0x00); };
}
int gron()
{
int i;
char c;
/* Allow page flipping and graphics */
/* Now, set graphics bit */
out(0x3bf, 0x03); out(0x3b8, 0x22);
/* Now, set up the 6845 */
for(i=0;i<12;i++)
{ c = i; out(0x3b4, c); c = param_g[i]; out(0x3b5, c); }
/* Now, turn display back on */
out(0x3b8, 0x2b);
/* Clear memory */
slomemset();
}
int groff()
{
int i;
char c;
out(0x3bf, 0x03); out(0x3b8, 0x20);
/* Now, set up the 6845 */
out(0x3b4, 0x3b5);
for(i=0;i<12;i++)
{ c = i; out(0x3b4, c); c = param_t[i]; out(0x3b5, c); }
/* Now, turn display back on */
slomemset();
}
hg_plot(x,y,c)
int x,y;
char c;
{
long offset; /* location in graphics buffer */
char p;
if (x<0 || x>719) return(-1);
if (y<0 || y>347) return(-1);
offset=y_offset[y]+(x>>3);
if (c == 1)
{
p = fpbyte(herc_base+offset);
p ^= masks[x%8]; spbyte(herc_base+offset, p);
};
if (c == 0)
{
p = fpbyte(herc_base+offset);
p &= (~masks[x%8]); spbyte(herc_base+offset, p);
};
return(0);
}
hg_plotchar(a,b,v)
int a, b, v;
{
int i,x,y,index;
long offset;
char mask, p;
if (( a < 0) || (a > 89)) { return(-1); };
if (( b < 0) || (b > 42)) { return(-1); };
x=a*8; y=b*8;
index=(int)v*8;
for (i=0;i<8;i++)
{
offset=y_offset[y]+(x>>3);
p = fpbyte(herc_base+offset); mask=hercchars[index+i];
p ^= mask; spbyte(herc_base+offset, p); y++;
};
}
hg_line(x1,y1,x2,y2,c)
int x1,y1,x2,y2,c;
{
int r, ax,sy,dx,dy,i;
dx=x2-x1; dy=y2-y1; r=dx/2; ax=1; sy=1;
if (dx<0)
{ dx= -dx; ax= -1; }
if (dy<0)
{ dy= -dy; sy= -1; }
if (dx!=0)
for (i=1;i<=dx;i++)
{
if (hg_plot(x1,y1,c) == -1) { return(-1); };
x1=x1+ax; r+=dy;
if (r>=dx) { y1+=sy; r=r-dx; }
}
else
for(i=1;i<=dy;i++) /* straight up and down */
{
if (hg_plot(x1,y1,c) == -1) { return(-1); };
y1+=sy;
}
}
int hg_box(x1,y1,x2,y2,c)
int x1,y1,x2,y2,c; /* Plot box with corners at x1,y2 and x2,y2 as */
{ /* top left and bottom right corners */
int dx,dy;
dx = x2 - x1;
dy = y2 - y1; /* Get values for hg_line lengths */
hg_line(x1,y1,x1+dx,y1,c); /* Right */
hg_line(x1+dx,y1,x1+dx,y2,c); /* Down */
hg_line(x1+dx,y2,x1,y2,c); /* Left */
hg_line(x1,y2,x1,y1,c); /* Back up */
return(0);
}
hgopen(dev, flags)
int dev, flags;
{
if (herc_state)
{ u.u_error = EMFILE; return; } else { herc_state = 1; };
herc_base = 0xb0000; gron();
u.u_error = 0; return;
}
hgclose(dev)
int dev;
{
if (!herc_state)
{ u.u_error = ENXIO; return; };
groff(); herc_state = 0;
u.u_error = 0; return;
}
hgwrite(dev)
int dev;
{
char c;
unsigned int i;
while ((c = cpass()) != -1)
{
herc_machine(c);
};
return;
}
/* Convert ascii to int. Ascii must have ALL three decimal digits!! */
int getint()
{
int i, total;
char c;
total = 0;
c = cpass(); total += (c - '0') * 100;
c = cpass(); total += (c - '0') * 10;
c = cpass(); total += (c - '0');
return(total);
}
herc_plot()
{
int x, y;
char c;
x = getint(); y = getint(); c = cpass();
switch(c)
{
case 'W' : { c = 1; break; };
case 'E' : { c = 0; break; };
default : { c = 0; break; };
};
hg_plot(x,y,c);
}
herc_line()
{
int x1, y1, x2, y2;
char c;
x1 = getint(); y1 = getint();
x2 = getint(); y2 = getint();
c = cpass();
switch(c)
{
case 'W' : { c = 1; break; };
case 'E' : { c = 0; break; };
default : { c = 0; break; };
};
hg_line(x1, y1, x2, y2, c);
}
herc_box()
{
int x1, y1, x2, y2;
char c;
x1 = getint(); y1 = getint();
x2 = getint(); y2 = getint();
c = cpass();
switch(c)
{
case 'W' : { c = 1; break; };
case 'E' : { c = 0; break; };
default : { c = 0; break; };
};
hg_box(x1, y1, x2, y2, c);
}
herc_char()
{
int x,y,c;
x = getint(); y = getint();
c = getint();
hg_plotchar(x, y, c);
}
herc_str()
{
int i, x, y, x1, y1, s;
char c;
x = getint(); y = getint(); s = getint();
x1 = x;
y1 = y;
for (i = 0; i<s; i++)
{
c = cpass(); hg_plotchar(x1+i, y1, c);
}
}
herc_machine(c)
char c;
{
/* Wheeeeee! I L O V E writing these things */
/* For each character, read the command, */
/* read any arguments needed and send them */
/* out. We can't detect errors. We just */
/* die a sad death. No one wants me to put */
/* a yacc/lex thing in here do they? */
switch(c)
{
case 'Z' : { slomemset(); break; };
case 'P' : { herc_plot(); break; };
case 'L' : { herc_line(); break; };
case 'B' : { herc_box(); break; };
case 'C' : { herc_char(); break; };
case 'S' : { herc_str(); break; };
default : { /* Ignore command */ };
};
}
@\Rogue\Monster\
else
echo "shar: Will not over write herc.c"
fi
if `test ! -s test.c`
then
echo "x - test.c"
cat > test.c << '@\Rogue\Monster\'
main()
{
int fd, open();
fd = open("/dev/herc",1);
write(fd,"S000000006A Line", 16);
write(fd, "L100100200200W",14);
sleep(5);
write(fd,"Z",1);
write(fd,"S000000004An A", 14);
write(fd,"C030020065",10);
sleep(5);
write(fd,"Z",1);
write(fd,"S000000005A Box", 15);
write(fd, "B050050500100W",14);
sleep(5);
write(fd,"Z",1);
write(fd,"S020020017That's All Folks!",27);
sleep(5);
close(fd);
}
@\Rogue\Monster\
else
echo "shar: Will not over write test.c"
fi
# to concatenate archives, remove anything after this line
exit 0
John Antypas -- Soft21 --21st Century Software:
UUCP: {buita|garp|killer|pyramid|reed|sdeggo|ucsd!ucrmath|uport}!soft21!jantypas
Internet: jantypas%soft21.uucp@{garp.MIT.EDU, ucsd.EDU} BITNET: jantypas@ucrvmsjantypas@ucrmath.UUCP (John Antypas) (09/29/88)
THe code below is a driver for Micropport Sys V/AT 2.3 which allows the
user (on the console) to use the graphics abilities of the hercules video
display card. It's similar to an earlier post, but I had a few major bugs
to fix and a test program is included.
Any questions, comments can be sent to: jantypas@Soft21.Riverside.CA.US
or for those who don't handle MX Receords ...!garp!soft21!jantypas
#--------------------------Cut Here--------------------------
#! /bin/sh
# This is a shell archive. Remove anything before the "#! /bin/sh" line,
# then unpack it by saving it in a file and typing "sh file."
#
# Wrapped by John Antypas (root) at soft21 on Sun Sep 18 18:01:21 1988
#
# unpacks with default permissions
#
# Contents : herc.c herc.h herc.readme herctest.c
#
if `test ! -s herc.c`
then
echo "x - herc.c"
cat > herc.c << '@\Rogue\Monster\'
/* ================= Hercules Graphics Code =========================== */
/* These routines provide basic line drawing graphics for the hercules */
/* monographics card under Microport Unix Sys V/AT 2.3. Written by */
/* John Antypas 8/10/88 */
/* Property of Microport Inc. */
/* */
/* ==================================================================== */
#define CLICKP1 0x5C0 /* Click addr of Page 2 */
#define CLICKP2 0x600 /* Click addr of end of page 2 */
#define PAGE1 0xB0000 /* Graphics pages in clicks */
#define PAGE2 0xB8000
#define PAGE_SIZE 0x8000
/* Include files */
#include <sys/types.h>
#include <sys/param.h>
#include <sys/mmu.h>
#include <sys/seg.h>
#include <sys/map.h>
#include <sys/signal.h>
#include <sys/dir.h>
#include <sys/errno.h>
#include <sys/ioctl.h>
#include <sys/user.h>
#include <sys/sysmacros.h>
#include <sys/herc.h>
int herc_state; /* If !=0 herc in use. */
char command; /* Command byte */
char *herc_base; /* Memory base */
char param_g[12]={ /* parameter table for 6845 video chip */
0x35, 0x2d, 0x2e, 0x07, /* graphics setup */
0x5b, 0x02, 0x57, 0x57,
0x02, 0x03, 0x00, 0x00};
char param_t[12]={ /* parameter table for 6845 video chip */
0x61, 0x50, 0x52, 0x0f, /* text setup */
0x19, 0x06, 0x19, 0x19,
0x02, 0x0d, 0x0b, 0x0c};
char masks[8]={
0x80, 0x40, 0x20, 0x10, 0x08, 0x04, 0x02, 0x01};
/* RAM-Loadable Character Sets for the IBM PC
Richard Wilton
July 1986
/* definitions for 8 by 8 characters 00 through FF */
static char hercchars[2048]={
0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000, /* 000 */
0x07E,0x081,0x0A5,0x081,0x0BD,0x099,0x081,0x07E, /* 001 */
0x07E,0x0FF,0x000,0x0FF,0x0C3,0x0E7,0x0FF,0x07E, /* 002 */
0x06C,0x0FE,0x0FE,0x0FE,0x07C,0x038,0x010,0x000, /* 003 */
0x010,0x038,0x07C,0x0FE,0x07C,0x038,0x010,0x000, /* 004 */
0x038,0x07C,0x038,0x0FE,0x0FE,0x07C,0x038,0x07C, /* 005 */
0x010,0x010,0x038,0x07C,0x0FE,0x07C,0x038,0x07C, /* 006 */
0x000,0x000,0x018,0x03C,0x03C,0x018,0x000,0x000, /* 007 */
0x0FF,0x0FF,0x0E7,0x0C3,0x0C3,0x0E7,0x0FF,0x0FF, /* 008 */
0x000,0x03C,0x066,0x042,0x042,0x066,0x03C,0x000, /* 009 */
0x0FF,0x0C3,0x099,0x0BD,0x0BD,0x099,0x0C3,0x0FF, /* 00A */
0x00F,0x007,0x00F,0x07D,0x0CC,0x0CC,0x0CC,0x078, /* 00B */
0x03C,0x066,0x066,0x066,0x03C,0x018,0x07E,0x018, /* 00C */
0x03F,0x033,0x03F,0x030,0x030,0x070,0x0F0,0x0E0, /* 00D */
0x07F,0x063,0x07F,0x063,0x063,0x067,0x0E6,0x0C0, /* 00E */
0x099,0x05A,0x03C,0x0E7,0x0E7,0x03C,0x05A,0x099, /* 00F */
0x080,0x0E0,0x0F8,0x0FE,0x0F8,0x0E0,0x080,0x000, /* 010 */
0x002,0x00E,0x03E,0x0FE,0x03E,0x00E,0x002,0x000, /* 011 */
0x018,0x03C,0x07E,0x018,0x018,0x07E,0x03C,0x018, /* 012 */
0x066,0x066,0x066,0x066,0x066,0x000,0x066,0x000, /* 013 */
0x07F,0x000,0x000,0x07B,0x01B,0x01B,0x01B,0x000, /* 014 */
0x03E,0x063,0x038,0x06C,0x06C,0x038,0x0CC,0x078, /* 015 */
0x000,0x000,0x000,0x000,0x07E,0x07E,0x07E,0x000, /* 016 */
0x018,0x03C,0x07E,0x018,0x07E,0x03C,0x018,0x0FF, /* 017 */
0x018,0x03C,0x07E,0x018,0x018,0x018,0x018,0x000, /* 018 */
0x018,0x018,0x018,0x018,0x07E,0x03C,0x018,0x000, /* 019 */
0x000,0x018,0x00C,0x0FE,0x00C,0x018,0x000,0x000, /* 01A */
0x000,0x030,0x060,0x0FE,0x060,0x030,0x000,0x000, /* 01B */
0x000,0x000,0x0C0,0x0C0,0x0C0,0x0FE,0x000,0x000, /* 01C */
0x000,0x024,0x066,0x0FF,0x066,0x024,0x000,0x000, /* 01D */
0x000,0x018,0x03C,0x07E,0x0FF,0x0FF,0x000,0x000, /* 01E */
0x000,0x0FF,0x0FF,0x07E,0x03C,0x018,0x000,0x000, /* 01F */
0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000, /* 020 */
0x030,0x078,0x078,0x030,0x030,0x000,0x030,0x000, /* 021 */
0x06C,0x06C,0x06C,0x000,0x000,0x000,0x000,0x000, /* 022 */
0x06C,0x06C,0x0FE,0x06C,0x0FE,0x06C,0x06C,0x000, /* 023 */
0x030,0x07C,0x0C0,0x078,0x00C,0x0F8,0x030,0x000, /* 024 */
0x000,0x0C6,0x0CC,0x018,0x030,0x066,0x0C6,0x000, /* 025 */
0x038,0x06C,0x038,0x076,0x0DC,0x0CC,0x076,0x000, /* 026 */
0x060,0x060,0x0C0,0x000,0x000,0x000,0x000,0x000, /* 027 */
0x018,0x030,0x060,0x060,0x060,0x030,0x018,0x000, /* 028 */
0x060,0x030,0x018,0x018,0x018,0x030,0x060,0x000, /* 029 */
0x000,0x066,0x03C,0x0FF,0x03C,0x066,0x000,0x000, /* 02A */
0x000,0x030,0x030,0x0FC,0x030,0x030,0x000,0x000, /* 02B */
0x000,0x000,0x000,0x000,0x000,0x030,0x030,0x060, /* 02C */
0x000,0x000,0x000,0x0FC,0x000,0x000,0x000,0x000, /* 02D */
0x000,0x000,0x000,0x000,0x000,0x030,0x030,0x000, /* 02E */
0x006,0x00C,0x018,0x030,0x060,0x0C0,0x080,0x000, /* 02F */
0x07C,0x0C6,0x0CE,0x0DE,0x0F6,0x0E6,0x07C,0x000, /* 030 */
0x030,0x070,0x030,0x030,0x030,0x030,0x0FC,0x000, /* 031 */
0x078,0x0CC,0x00C,0x038,0x060,0x0CC,0x0FC,0x000, /* 032 */
0x078,0x0CC,0x00C,0x038,0x00C,0x0CC,0x078,0x000, /* 033 */
0x01C,0x03C,0x06C,0x0CC,0x0FE,0x00C,0x01E,0x000, /* 034 */
0x0FC,0x0C0,0x0F8,0x00C,0x00C,0x0CC,0x078,0x000, /* 035 */
0x038,0x060,0x0C0,0x0F8,0x0CC,0x0CC,0x078,0x000, /* 036 */
0x0FC,0x0CC,0x00C,0x018,0x030,0x030,0x030,0x000, /* 037 */
0x078,0x0CC,0x0CC,0x078,0x0CC,0x0CC,0x078,0x000, /* 038 */
0x078,0x0CC,0x0CC,0x07C,0x00C,0x018,0x070,0x000, /* 039 */
0x000,0x030,0x030,0x000,0x000,0x030,0x030,0x000, /* 03A */
0x000,0x030,0x030,0x000,0x000,0x030,0x030,0x060, /* 03B */
0x018,0x030,0x060,0x0C0,0x060,0x030,0x018,0x000, /* 03C */
0x000,0x000,0x0FC,0x000,0x000,0x0FC,0x000,0x000, /* 03D */
0x060,0x030,0x018,0x00C,0x018,0x030,0x060,0x000, /* 03E */
0x078,0x0CC,0x00C,0x018,0x030,0x000,0x030,0x000, /* 03F */
0x07C,0x0C6,0x0DE,0x0DE,0x0DE,0x0C0,0x078,0x000, /* 040 */
0x030,0x078,0x0CC,0x0CC,0x0FC,0x0CC,0x0CC,0x000, /* 041 */
0x0FC,0x066,0x066,0x07C,0x066,0x066,0x0FC,0x000, /* 042 */
0x03C,0x066,0x0C0,0x0C0,0x0C0,0x066,0x03C,0x000, /* 043 */
0x0F8,0x06C,0x066,0x066,0x066,0x06C,0x0F8,0x000, /* 044 */
0x0FE,0x062,0x068,0x078,0x068,0x062,0x0FE,0x000, /* 045 */
0x0FE,0x062,0x068,0x078,0x068,0x060,0x0F0,0x000, /* 046 */
0x03C,0x066,0x0C0,0x0C0,0x0CE,0x066,0x03E,0x000, /* 047 */
0x0CC,0x0CC,0x0CC,0x0FC,0x0CC,0x0CC,0x0CC,0x000, /* 048 */
0x078,0x030,0x030,0x030,0x030,0x030,0x078,0x000, /* 049 */
0x01E,0x00C,0x00C,0x00C,0x0CC,0x0CC,0x078,0x000, /* 04A */
0x0E6,0x066,0x06C,0x078,0x06C,0x066,0x0E6,0x000, /* 04B */
0x0F0,0x060,0x060,0x060,0x062,0x066,0x0FE,0x000, /* 04C */
0x0C6,0x0EE,0x0FE,0x0FE,0x0D6,0x0C6,0x0C6,0x000, /* 04D */
0x0C6,0x0E6,0x0F6,0x0DE,0x0CE,0x0C6,0x0C6,0x000, /* 04E */
0x038,0x06C,0x0C6,0x0C6,0x0C6,0x06C,0x038,0x000, /* 04F */
0x0FC,0x066,0x066,0x07C,0x060,0x060,0x0F0,0x000, /* 050 */
0x078,0x0CC,0x0CC,0x0CC,0x0DC,0x078,0x01C,0x000, /* 051 */
0x0FC,0x066,0x066,0x07C,0x06C,0x066,0x0E6,0x000, /* 052 */
0x078,0x0CC,0x0E0,0x070,0x01C,0x0CC,0x078,0x000, /* 053 */
0x0FC,0x0B4,0x030,0x030,0x030,0x030,0x078,0x000, /* 054 */
0x0CC,0x0CC,0x0CC,0x0CC,0x0CC,0x0CC,0x0FC,0x000, /* 055 */
0x0CC,0x0CC,0x0CC,0x0CC,0x0CC,0x078,0x030,0x000, /* 056 */
0x0C6,0x0C6,0x0C6,0x0D6,0x0FE,0x0EE,0x0C6,0x000, /* 057 */
0x0C6,0x0C6,0x06C,0x038,0x038,0x06C,0x0C6,0x000, /* 058 */
0x0CC,0x0CC,0x0CC,0x078,0x030,0x030,0x078,0x000, /* 059 */
0x0FE,0x0C6,0x08C,0x018,0x032,0x066,0x0FE,0x000, /* 05A */
0x078,0x060,0x060,0x060,0x060,0x060,0x078,0x000, /* 05B */
0x0C0,0x060,0x030,0x018,0x00C,0x006,0x002,0x000, /* 05C */
0x078,0x018,0x018,0x018,0x018,0x018,0x078,0x000, /* 05D */
0x010,0x038,0x06C,0x0C6,0x000,0x000,0x000,0x000, /* 05E */
0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x0FF, /* 05F */
0x030,0x030,0x018,0x000,0x000,0x000,0x000,0x000, /* 060 */
0x000,0x000,0x078,0x00C,0x07C,0x0CC,0x076,0x000, /* 061 */
0x0E0,0x060,0x060,0x07C,0x066,0x066,0x0DC,0x000, /* 062 */
0x000,0x000,0x078,0x0CC,0x0C0,0x0CC,0x078,0x000, /* 063 */
0x01C,0x00C,0x00C,0x07C,0x0CC,0x0CC,0x076,0x000, /* 064 */
0x000,0x000,0x078,0x0CC,0x0FC,0x0C0,0x078,0x000, /* 065 */
0x038,0x06C,0x060,0x0F0,0x060,0x060,0x0F0,0x000, /* 066 */
0x000,0x000,0x076,0x0CC,0x0CC,0x07C,0x00C,0x0F8, /* 067 */
0x0E0,0x060,0x06C,0x076,0x066,0x066,0x0E6,0x000, /* 068 */
0x030,0x000,0x070,0x030,0x030,0x030,0x078,0x000, /* 069 */
0x00C,0x000,0x00C,0x00C,0x00C,0x0CC,0x0CC,0x078, /* 06A */
0x0E0,0x060,0x066,0x06C,0x078,0x06C,0x0E6,0x000, /* 06B */
0x070,0x030,0x030,0x030,0x030,0x030,0x078,0x000, /* 06C */
0x000,0x000,0x0CC,0x0FE,0x0FE,0x0D6,0x0C6,0x000, /* 06D */
0x000,0x000,0x0F8,0x0CC,0x0CC,0x0CC,0x0CC,0x000, /* 06E */
0x000,0x000,0x078,0x0CC,0x0CC,0x0CC,0x078,0x000, /* 06F */
0x000,0x000,0x0DC,0x066,0x066,0x07C,0x060,0x0F0, /* 070 */
0x000,0x000,0x076,0x0CC,0x0CC,0x07C,0x00C,0x01E, /* 071 */
0x000,0x000,0x0DC,0x076,0x066,0x060,0x0F0,0x000, /* 072 */
0x000,0x000,0x07C,0x0C0,0x078,0x00C,0x0F8,0x000, /* 073 */
0x010,0x030,0x07C,0x030,0x030,0x034,0x018,0x000, /* 074 */
0x000,0x000,0x0CC,0x0CC,0x0CC,0x0CC,0x076,0x000, /* 075 */
0x000,0x000,0x0CC,0x0CC,0x0CC,0x078,0x030,0x000, /* 076 */
0x000,0x000,0x0C6,0x0D6,0x0FE,0x0FE,0x06C,0x000, /* 077 */
0x000,0x000,0x0C6,0x06C,0x038,0x06C,0x0C6,0x000, /* 078 */
0x000,0x000,0x0CC,0x0CC,0x0CC,0x07C,0x00C,0x0F8, /* 079 */
0x000,0x000,0x0FC,0x098,0x030,0x064,0x0FC,0x000, /* 07A */
0x01C,0x030,0x030,0x0E0,0x030,0x030,0x01C,0x000, /* 07B */
0x018,0x018,0x018,0x000,0x018,0x018,0x018,0x000, /* 07C */
0x0E0,0x030,0x030,0x01C,0x030,0x030,0x0E0,0x000, /* 07D */
0x076,0x0DC,0x000,0x000,0x000,0x000,0x000,0x000, /* 07E */
0x000,0x010,0x038,0x06C,0x0C6,0x0C6,0x0FE,0x000, /* 07F */
0x078,0x0CC,0x0C0,0x0CC,0x078,0x018,0x00C,0x078, /* 080 */
0x000,0x066,0x000,0x066,0x066,0x066,0x03F,0x000, /* 081 */
0x00E,0x000,0x03C,0x066,0x07E,0x060,0x03C,0x000, /* 082 */
0x07E,0x0C3,0x03C,0x006,0x03E,0x066,0x03F,0x000, /* 083 */
0x066,0x000,0x03C,0x006,0x03E,0x066,0x03F,0x000, /* 084 */
0x070,0x000,0x03C,0x006,0x03E,0x066,0x03F,0x000, /* 085 */
0x018,0x018,0x03C,0x006,0x03E,0x066,0x03F,0x000, /* 086 */
0x000,0x000,0x03C,0x060,0x060,0x03C,0x006,0x01C, /* 087 */
0x07E,0x0C3,0x03C,0x066,0x07E,0x060,0x03C,0x000, /* 088 */
0x066,0x000,0x03C,0x066,0x07E,0x060,0x03C,0x000, /* 089 */
0x070,0x000,0x03C,0x066,0x07E,0x060,0x03C,0x000, /* 08A */
0x066,0x000,0x038,0x018,0x018,0x018,0x03C,0x000, /* 08B */
0x07C,0x0C6,0x038,0x018,0x018,0x018,0x03C,0x000, /* 08C */
0x070,0x000,0x038,0x018,0x018,0x018,0x03C,0x000, /* 08D */
0x063,0x01C,0x036,0x063,0x07F,0x063,0x063,0x000, /* 08E */
0x018,0x018,0x000,0x03C,0x066,0x07E,0x066,0x000, /* 08F */
0x00E,0x000,0x07E,0x030,0x03C,0x030,0x07E,0x000, /* 090 */
0x000,0x000,0x07F,0x00C,0x07F,0x0CC,0x07F,0x000, /* 091 */
0x01F,0x036,0x066,0x07F,0x066,0x066,0x067,0x000, /* 092 */
0x03C,0x066,0x000,0x03C,0x066,0x066,0x03C,0x000, /* 093 */
0x000,0x066,0x000,0x03C,0x066,0x066,0x03C,0x000, /* 094 */
0x000,0x070,0x000,0x03C,0x066,0x066,0x03C,0x000, /* 095 */
0x03C,0x066,0x000,0x066,0x066,0x066,0x03F,0x000, /* 096 */
0x000,0x070,0x000,0x066,0x066,0x066,0x03F,0x000, /* 097 */
0x000,0x066,0x000,0x066,0x066,0x03E,0x006,0x07C, /* 098 */
0x0C3,0x018,0x03C,0x066,0x066,0x03C,0x018,0x000, /* 099 */
0x066,0x000,0x066,0x066,0x066,0x066,0x03C,0x000, /* 09A */
0x018,0x018,0x07E,0x0C0,0x0C0,0x07E,0x018,0x018, /* 09B */
0x01C,0x036,0x032,0x078,0x030,0x073,0x07E,0x000, /* 09C */
0x066,0x066,0x03C,0x07E,0x018,0x07E,0x018,0x018, /* 09D */
0x0F8,0x0CC,0x0CC,0x0FA,0x0C6,0x0CF,0x0C6,0x0C7, /* 09E */
0x00E,0x01B,0x018,0x03C,0x018,0x018,0x0D8,0x070, /* 09F */
0x00E,0x000,0x03C,0x006,0x03E,0x066,0x03F,0x000, /* 0A0 */
0x01C,0x000,0x038,0x018,0x018,0x018,0x03C,0x000, /* 0A1 */
0x000,0x00E,0x000,0x03C,0x066,0x066,0x03C,0x000, /* 0A2 */
0x000,0x00E,0x000,0x066,0x066,0x066,0x03F,0x000, /* 0A3 */
0x000,0x07C,0x000,0x07C,0x066,0x066,0x066,0x000, /* 0A4 */
0x07E,0x000,0x066,0x076,0x07E,0x06E,0x066,0x000, /* 0A5 */
0x03C,0x06C,0x06C,0x03E,0x000,0x07E,0x000,0x000, /* 0A6 */
0x038,0x06C,0x06C,0x038,0x000,0x07C,0x000,0x000, /* 0A7 */
0x018,0x000,0x018,0x030,0x060,0x066,0x03C,0x000, /* 0A8 */
0x000,0x000,0x000,0x07E,0x060,0x060,0x000,0x000, /* 0A9 */
0x000,0x000,0x000,0x07E,0x006,0x006,0x000,0x000, /* 0AA */
0x0C3,0x0C6,0x0CC,0x0DE,0x033,0x066,0x0CC,0x00F, /* 0AB */
0x0C3,0x0C6,0x0CC,0x000,0x037,0x06F,0x0CF,0x003, /* 0AC */
0x018,0x018,0x000,0x018,0x018,0x018,0x018,0x000, /* 0AD */
0x000,0x033,0x066,0x0CC,0x066,0x033,0x000,0x000, /* 0AE */
0x000,0x0CC,0x066,0x033,0x066,0x0CC,0x000,0x000, /* 0AF */
0x022,0x088,0x022,0x088,0x022,0x088,0x022,0x088, /* 0B0 */
0x055,0x0AA,0x055,0x0AA,0x055,0x0AA,0x055,0x0AA, /* 0B1 */
0x000,0x077,0x000,0x0EE,0x000,0x077,0x000,0x0EE, /* 0B2 */
0x018,0x018,0x018,0x018,0x018,0x018,0x018,0x018, /* 0B3 */
0x018,0x018,0x018,0x018,0x0F8,0x018,0x018,0x018, /* 0B4 */
0x018,0x018,0x0F8,0x018,0x0F8,0x018,0x018,0x018, /* 0B5 */
0x036,0x036,0x036,0x036,0x0F6,0x036,0x036,0x036, /* 0B6 */
0x000,0x000,0x000,0x000,0x0FE,0x036,0x036,0x036, /* 0B7 */
0x000,0x000,0x0F8,0x018,0x0F8,0x018,0x018,0x018, /* 0B8 */
0x036,0x036,0x0F6,0x006,0x0F6,0x036,0x036,0x036, /* 0B9 */
0x036,0x036,0x036,0x036,0x036,0x036,0x036,0x036, /* 0BA */
0x000,0x000,0x0FE,0x006,0x0F6,0x036,0x036,0x036, /* 0BB */
0x036,0x036,0x0F6,0x006,0x0FE,0x000,0x000,0x000, /* 0BC */
0x036,0x036,0x036,0x036,0x0FE,0x000,0x000,0x000, /* 0BD */
0x018,0x018,0x0F8,0x018,0x0F8,0x000,0x000,0x000, /* 0BE */
0x000,0x000,0x000,0x000,0x0F8,0x018,0x018,0x018, /* 0BF */
0x018,0x018,0x018,0x018,0x01F,0x000,0x000,0x000, /* 0C0 */
0x018,0x018,0x018,0x018,0x0FF,0x000,0x000,0x000, /* 0C1 */
0x000,0x000,0x000,0x000,0x0FF,0x018,0x018,0x018, /* 0C2 */
0x018,0x018,0x018,0x018,0x01F,0x018,0x018,0x018, /* 0C3 */
0x000,0x000,0x000,0x000,0x0FF,0x000,0x000,0x000, /* 0C4 */
0x018,0x018,0x018,0x018,0x0FF,0x018,0x018,0x018, /* 0C5 */
0x018,0x018,0x01F,0x018,0x01F,0x018,0x018,0x018, /* 0C6 */
0x036,0x036,0x036,0x036,0x037,0x036,0x036,0x036, /* 0C7 */
0x036,0x036,0x037,0x030,0x03F,0x000,0x000,0x000, /* 0C8 */
0x000,0x000,0x03F,0x030,0x037,0x036,0x036,0x036, /* 0C9 */
0x036,0x036,0x0F7,0x000,0x0FF,0x000,0x000,0x000, /* 0CA */
0x000,0x000,0x0FF,0x000,0x0F7,0x036,0x036,0x036, /* 0CB */
0x036,0x036,0x037,0x030,0x037,0x036,0x036,0x036, /* 0CC */
0x000,0x000,0x0FF,0x000,0x0FF,0x000,0x000,0x000, /* 0CD */
0x036,0x036,0x0F7,0x000,0x0F7,0x036,0x036,0x036, /* 0CE */
0x018,0x018,0x0FF,0x000,0x0FF,0x000,0x000,0x000, /* 0CF */
0x036,0x036,0x036,0x036,0x0FF,0x000,0x000,0x000, /* 0D0 */
0x000,0x000,0x0FF,0x000,0x0FF,0x018,0x018,0x018, /* 0D1 */
0x000,0x000,0x000,0x000,0x0FF,0x036,0x036,0x036, /* 0D2 */
0x036,0x036,0x036,0x036,0x03F,0x000,0x000,0x000, /* 0D3 */
0x018,0x018,0x01F,0x018,0x01F,0x000,0x000,0x000, /* 0D4 */
0x000,0x000,0x01F,0x018,0x01F,0x018,0x018,0x018, /* 0D5 */
0x000,0x000,0x000,0x000,0x03F,0x036,0x036,0x036, /* 0D6 */
0x036,0x036,0x036,0x036,0x0FF,0x036,0x036,0x036, /* 0D7 */
0x018,0x018,0x0FF,0x018,0x0FF,0x018,0x018,0x018, /* 0D8 */
0x018,0x018,0x018,0x018,0x0F8,0x000,0x000,0x000, /* 0D9 */
0x000,0x000,0x000,0x000,0x01F,0x018,0x018,0x018, /* 0DA */
0x0FF,0x0FF,0x0FF,0x0FF,0x0FF,0x0FF,0x0FF,0x0FF, /* 0 */
0x000,0x000,0x000,0x000,0x0FF,0x0FF,0x0FF,0x0FF, /* 0DC */
0x0F0,0x0F0,0x0F0,0x0F0,0x0F0,0x0F0,0x0F0,0x0F0, /* 0DD */
0x00F,0x00F,0x00F,0x00F,0x00F,0x00F,0x00F,0x00F, /* 0DE */
0x0FF,0x0FF,0x0FF,0x0FF,0x000,0x000,0x000,0x000, /* 0DF */
0x000,0x000,0x03B,0x06E,0x064,0x06E,0x03B,0x000, /* 0E0 */
0x000,0x03C,0x066,0x07C,0x066,0x07C,0x060,0x060, /* 0E1 */
0x000,0x07E,0x066,0x060,0x060,0x060,0x060,0x000, /* 0E2 */
0x000,0x07F,0x036,0x036,0x036,0x036,0x036,0x000, /* 0E3 */
0x07E,0x066,0x030,0x018,0x030,0x066,0x07E,0x000, /* 0E4 */
0x000,0x000,0x03F,0x06C,0x06C,0x06C,0x038,0x000, /* 0E5 */
0x000,0x033,0x033,0x033,0x033,0x03E,0x030,0x060, /* 0E6 */
0x000,0x03B,0x06E,0x00C,0x00C,0x00C,0x00C,0x000, /* 0E7 */
0x07E,0x018,0x03C,0x066,0x066,0x03C,0x018,0x07E, /* 0E8 */
0x01C,0x036,0x063,0x07F,0x063,0x036,0x01C,0x000, /* 0E9 */
0x01C,0x036,0x063,0x063,0x036,0x036,0x077,0x000, /* 0EA */
0x00E,0x018,0x00C,0x03E,0x066,0x066,0x03C,0x000, /* 0EB */
0x000,0x000,0x07E,0x000,0x000,0x07E,0x000,0x000, /* 0EC */
0x006,0x00C,0x07E,0x000,0x000,0x07E,0x060,0x0C0, /* 0ED */
0x01C,0x060,0x0C0,0x0FC,0x0C0,0x060,0x01C,0x000, /* 0EE */
0x03C,0x066,0x066,0x066,0x066,0x066,0x066,0x000, /* 0EF */
0x000,0x07E,0x000,0x07E,0x000,0x07E,0x000,0x000, /* 0F0 */
0x018,0x018,0x07E,0x018,0x018,0x000,0x07E,0x000, /* 0F1 */
0x030,0x018,0x00C,0x018,0x030,0x000,0x07E,0x000, /* 0F2 */
0x00C,0x018,0x030,0x018,0x00C,0x000,0x07E,0x000, /* 0F3 */
0x00E,0x01B,0x01B,0x018,0x018,0x018,0x018,0x018, /* 0F4 */
0x018,0x018,0x018,0x018,0x018,0x0D8,0x0D8,0x070, /* 0F5 */
0x018,0x018,0x000,0x07E,0x000,0x018,0x018,0x000, /* 0F6 */
0x000,0x076,0x0DC,0x000,0x076,0x0DC,0x000,0x000, /* 0F7 */
0x038,0x06C,0x06C,0x038,0x000,0x000,0x000,0x000, /* 0F8 */
0x000,0x000,0x000,0x018,0x018,0x000,0x000,0x000, /* 0F9 */
0x000,0x000,0x000,0x000,0x018,0x000,0x000,0x000, /* 0FA */
0x00F,0x00C,0x00C,0x00C,0x0EC,0x06C,0x03C,0x01C, /* 0FB */
0x078,0x06C,0x06C,0x06C,0x06C,0x000,0x000,0x000, /* 0FC */
0x070,0x018,0x030,0x060,0x078,0x000,0x000,0x000, /* 0FD */
0x000,0x000,0x03C,0x03C,0x03C,0x03C,0x000,0x000, /* 0FE */
0x000,0x000,0x000,0x000,0x000,0x000,0x000,0x000 /* 0FF */
};
static long y_offset[348] = {
0x00000,0x02000,0x04000,0x06000,0x0005a,0x0205a,0x0405a,
0x0605a,0x000b4,0x020b4,0x040b4,0x060b4,0x0010e,0x0210e,
0x0410e,0x0610e,0x00168,0x02168,0x04168,0x06168,0x001c2,
0x021c2,0x041c2,0x061c2,0x0021c,0x0221c,0x0421c,0x0621c,
0x00276,0x02276,0x04276,0x06276,0x002d0,0x022d0,0x042d0,
0x062d0,0x0032a,0x0232a,0x0432a,0x0632a,0x00384,0x02384,
0x04384,0x06384,0x003de,0x023de,0x043de,0x063de,0x00438,
0x02438,0x04438,0x06438,0x00492,0x02492,0x04492,0x06492,
0x004ec,0x024ec,0x044ec,0x064ec,0x00546,0x02546,0x04546,
0x06546,0x005a0,0x025a0,0x045a0,0x065a0,0x005fa,0x025fa,
0x045fa,0x065fa,0x00654,0x02654,0x04654,0x06654,0x006ae,
0x026ae,0x046ae,0x066ae,0x00708,0x02708,0x04708,0x06708,
0x00762,0x02762,0x04762,0x06762,0x007bc,0x027bc,0x047bc,
0x067bc,0x00816,0x02816,0x04816,0x06816,0x00870,0x02870,
0x04870,0x06870,0x008ca,0x028ca,0x048ca,0x068ca,0x00924,
0x02924,0x04924,0x06924,0x0097e,0x0297e,0x0497e,0x0697e,
0x009d8,0x029d8,0x049d8,0x069d8,0x00a32,0x02a32,0x04a32,
0x06a32,0x00a8c,0x02a8c,0x04a8c,0x06a8c,0x00ae6,0x02ae6,
0x04ae6,0x06ae6,0x00b40,0x02b40,0x04b40,0x06b40,0x00b9a,
0x02b9a,0x04b9a,0x06b9a,0x00bf4,0x02bf4,0x04bf4,0x06bf4,
0x00c4e,0x02c4e,0x04c4e,0x06c4e,0x00ca8,0x02ca8,0x04ca8,
0x06ca8,0x00d02,0x02d02,0x04d02,0x06d02,0x00d5c,0x02d5c,
0x04d5c,0x06d5c,0x00db6,0x02db6,0x04db6,0x06db6,0x00e10,
0x02e10,0x04e10,0x06e10,0x00e6a,0x02e6a,0x04e6a,0x06e6a,
0x00ec4,0x02ec4,0x04ec4,0x06ec4,0x00f1e,0x02f1e,0x04f1e,
0x06f1e,0x00f78,0x02f78,0x04f78,0x06f78,0x00fd2,0x02fd2,
0x04fd2,0x06fd2,0x0102c,0x0302c,0x0502c,0x0702c,0x01086,
0x03086,0x05086,0x07086,0x010e0,0x030e0,0x050e0,0x070e0,
0x0113a,0x0313a,0x0513a,0x0713a,0x01194,0x03194,0x05194,
0x07194,0x011ee,0x031ee,0x051ee,0x071ee,0x01248,0x03248,
0x05248,0x07248,0x012a2,0x032a2,0x052a2,0x072a2,0x012fc,
0x032fc,0x052fc,0x072fc,0x01356,0x03356,0x05356,0x07356,
0x013b0,0x033b0,0x053b0,0x073b0,0x0140a,0x0340a,0x0540a,
0x0740a,0x01464,0x03464,0x05464,0x07464,0x014be,0x034be,
0x054be,0x074be,0x01518,0x03518,0x05518,0x07518,0x01572,
0x03572,0x05572,0x07572,0x015cc,0x035cc,0x055cc,0x075cc,
0x01626,0x03626,0x05626,0x07626,0x01680,0x03680,0x05680,
0x07680,0x016da,0x036da,0x056da,0x076da,0x01734,0x03734,
0x05734,0x07734,0x0178e,0x0378e,0x0578e,0x0778e,0x017e8,
0x037e8,0x057e8,0x077e8,0x01842,0x03842,0x05842,0x07842,
0x0189c,0x0389c,0x0589c,0x0789c,0x018f6,0x038f6,0x058f6,
0x078f6,0x01950,0x03950,0x05950,0x07950,0x019aa,0x039aa,
0x059aa,0x079aa,0x01a04,0x03a04,0x05a04,0x07a04,0x01a5e,
0x03a5e,0x05a5e,0x07a5e,0x01ab8,0x03ab8,0x05ab8,0x07ab8,
0x01b12,0x03b12,0x05b12,0x07b12,0x01b6c,0x03b6c,0x05b6c,
0x07b6c,0x01bc6,0x03bc6,0x05bc6,0x07bc6,0x01c20,0x03c20,
0x05c20,0x07c20,0x01c7a,0x03c7a,0x05c7a,0x07c7a,0x01cd4,
0x03cd4,0x05cd4,0x07cd4,0x01d2e,0x03d2e,0x05d2e,0x07d2e,
0x01d88,0x03d88,0x05d88,0x07d88,0x01de2,0x03de2,0x05de2,
0x07de2,0x01e3c,0x03e3c,0x05e3c,0x07e3c
};
flip_page(mode)
int mode;
{
int i;
char c;
switch(mode)
{
case HERC_TEXT : {
out(0x3bf, 0x03);
for(i=0;i<12;i++)
{
c = i; out(0x3b4, c);
c = param_t[i];
out(0x3b5, c);
};
/* Just swap page images */
out(0x3b8, 0x28);
break;
};
case HERC_GRAF : {
out(0x3bf, 0x03);
for(i=0;i<12;i++)
{
c = i; out(0x3b4, c);
c = param_g[i]; out(0x3b5, c);
};
/* Just swap page images */
out(0x3b8, 0x8A);
break;
};
};
}
int gron()
{
int i;
char c;
/* Allow page flipping and graphics */
/* Now, set graphics bit */
out(0x3bf, 0x03);
/* Now, set up the 6845 */
for(i=0;i<12;i++)
{ c = i; out(0x3b4, c); c = param_g[i]; out(0x3b5, c); }
/* Clear graphics memory */
for (i=CLICKP1; i<CLICKP2; i++) { clearseg(i); };
/* Now, turn display back on */
out(0x3b8, 0x8A);
}
int groff()
{
int i;
char c;
out(0x3bf, 0x03);
/* Now, set up the 6845 */
for(i=0;i<12;i++)
{ c = i; out(0x3b4, c); c = param_t[i]; out(0x3b5, c); }
/* Now, turn display back on */
out(0x3b8, 0x28);
}
hg_plot(x,y,c)
int x,y;
char c;
{
static int prev_color, cycle_count;
long offset; /* location in graphics buffer */
int color, on_bit, off_bit;
char p;
/* Colors are special here. This color code affects
everything else so we have to be careful. The color
integer is really a mask of the type:
7 6 5 4 3 2 1 0
L D X X X X X X
L = Lit bit. This bit means that a color of N (0-63)
will have N dots LIT before cycling over to off
D = Dark bit. Same as lit but cylces N dots DARK before
a lit bit.
Thus: A color 0 is simply black all of the time, 1 is
always white, and a color like 0xC4 means
Lit and Dark on with a 4 dot cycle for both. If *
is an "on" pixel and - is "off", a line with color E4
would be:
C4: ****----****----****----
84: ****-****-****-****-****
44: ----*----*----*----*----
04: ************************
*/
if (x<0 || x>719) return(-1);
if (y<0 || y>347) return(-1);
offset=y_offset[y]+(x>>3)+0x8000;
p = herc_base[offset];
/* Is it simply colors 0-63 -- if so just do it */
if (c > 0 && c < 64)
{ p |= masks[x%8]; herc_base[offset] = p; return(0); };
if (c == 0)
{ p &= (~masks[x%8]); herc_base[offset] = p; return(0); };
/* If it's 64+ we have special patterns */
if (prev_color == c) /* We've been here before */
{
color = (c & 63); /* Get color value itself */
/* See if we do an "on" cycle */
on_bit = (c & 0xC0) >> 7;
off_bit = (c & 0x40) >> 6;
if ( on_bit && (!(off_bit)))
{
/* Plot of L only */
if (cycle_count == 0)
{
p &= (~masks[x%8]); herc_base[offset] = p;
cycle_count = color;
} else
{
p |= masks[x%8]; herc_base[offset] = p;
};
cycle_count --;
};
if ( off_bit && (!(on_bit)))
{
/* Plot of D only */
if (cycle_count < 0)
{
p &= (~masks[x%8]); herc_base[offset] = p;
cycle_count = color * -1;
} else
{
p |= masks[x%8]; herc_base[offset] = p;
};
cycle_count ++;
};
if (on_bit && off_bit)
{
/* on & off cycle */
if (cycle_count < 0)
{
p &= (~masks[x%8]); herc_base[offset] = p;
cycle_count ++;
if (cycle_count >= 0)
{ cycle_count = color; };
} else
{
p |= masks[x%8]; herc_base[offset] = p;
cycle_count --;
if (cycle_count < 0)
{ cycle_count = color * -1; };
};
};
} else
{
prev_color = c;
color = (c & 63); /* Get color value itself */
cycle_count = color;
on_bit = (c & 0xC0) >> 7;
off_bit = (c & 0x40) >> 6;
if (on_bit)
{ cycle_count = color; };
if (off_bit && (!(on_bit)))
{ cycle_count = color * -1; };
};
return(0);
}
hg_plotchar(a,b,v)
int a, b, v;
{
int i,x,y,index;
long offset;
char mask, p;
if (( a < 0) || (a > 89)) { return(-1); };
if (( b < 0) || (b > 42)) { return(-1); };
x=a*8; y=b*8;
index=(int)v*8;
for (i=0;i<8;i++)
{
offset=y_offset[y]+(x>>3) + 0x8000;
p = herc_base[offset];
mask=hercchars[index+i];
p ^= mask; herc_base[offset] = p; y++;
};
}
# define max(a,b) (((a) > (b)) ? (a) : (b))
# define abs(a) (((a) < 0) ? (-a) : (a))
# define sign(a) ((a) > 0 ? 1 : ((a) == 0 ? 0 : (-1)))
# define TRUE (-1)
# define FALSE (0)
hg_line(x1,y1,x2,y2,c)
int x1,y1,x2,y2,c;
{
int ix, iy, i, inc, x,y, dx, dy, plot, plotx, ploty;
dx=x2-x1; dy=y2-y1;
ix = abs(dx); iy = abs(dy);
inc = max(ix, iy);
plotx = x1; ploty = y1;
x = y = 0;
for (i=0;i<=inc;++i)
{
x += ix; y += iy;
plot = FALSE;
if (x > inc)
{
plot = TRUE;
x -= inc;
plotx += sign(dx);
};
if (y > inc)
{
plot = TRUE;
y -= inc;
ploty += sign(dy);
};
if (plot) { hg_plot(plotx, ploty, c); };
};
}
int hg_box(x1,y1,x2,y2,c)
int x1,y1,x2,y2,c; /* Plot box with corners at x1,y2 and x2,y2 as */
{ /* top left and bottom right corners */
int dx,dy;
dx = x2 - x1;
dy = y2 - y1; /* Get values for hg_line lengths */
hg_line(x1,y1,x1+dx,y1,c); /* Right */
hg_line(x1+dx,y1,x1+dx,y2,c); /* Down */
hg_line(x1+dx,y2,x1,y2,c); /* Left */
hg_line(x1,y2,x1,y1,c); /* Back up */
return(0);
}
hgopen(dev, flags)
int dev, flags;
{
if (herc_state) /* Make sure we're not already open */
{ u.u_error = EMFILE; return; } else { herc_state = 1; };
herc_base = gstokv(79); /* Get screen memory */
gron();
u.u_error = 0; return;
}
hgclose(dev)
int dev;
{
if (!herc_state)
{ u.u_error = ENXIO; return; };
groff(); herc_state = 0;
u.u_error = 0; return;
}
hgioctl(dev, command, args, mode)
int dev, command, mode;
herc_args *args;
{
herc_args t;
int i, xs, ys;
char sb[90];
copyin(args, &t, sizeof(t));
switch(command)
{
case HERC_TEXT :
case HERC_GRAF : { flip_page(command); break; };
case HERC_CLEAR: {
for (i=CLICKP1; i<CLICKP2; i++)
{ clearseg(i); }; break;
};
case HERC_PLOT : { hg_plot(t.x1, t.y1, t.c); break; };
case HERC_LINE : {
hg_line(t.x1, t.y1, t.x2, t.y2, t.c);
break;
};
case HERC_BOX : {
hg_box(t.x1, t.y1, t.x2, t.y2, t.c);
break;
};
case HERC_CHAR : {
hg_plotchar(t.x1, t.y1, t.c);
break;
};
case HERC_STR : {
copyin(t.str, sb, t.c);
xs = t.x1; ys = t.y1;
for (i = 0; i<t.c; i++)
{
hg_plotchar(xs, ys, sb[i]);
xs++;
};
break;
};
};
}
@\Rogue\Monster\
else
echo "shar: Will not over write herc.c"
fi
if `test ! -s herc.h`
then
echo "x - herc.h"
cat > herc.h << '@\Rogue\Monster\'
/* ================= Hercules Graphics Code =========================== */
/* These routines provide basic line drawing graphics for the hercules */
/* monographics card under Microport Unix Sys V/AT 2.3. Written by */
/* John Antypas 8/10/88 */
/* Property of Microport Inc. */
/* */
/* ==================================================================== */
#define HERC_TEXT 0x01 /*Switch to text mode */
#define HERC_GRAF 0x02 /*Switch to graphics */
#define HERC_CLEAR 0x03 /*Clear graphics screen */
#define HERC_PLOT 0x04 /*Plot dot on screen */
#define HERC_LINE 0x05 /*Draw line on screen */
#define HERC_BOX 0x06 /*Draw a box */
#define HERC_CHAR 0x07 /*Plot character */
#define HERC_STR 0x08 /*Write string */
#define LITBIT 0x80 /* Lit bit count */
#define DARKBIT 0x40 /* Dark bit count */
typedef struct
{
int x1, y1, x2, y2;
int c; /* || ascii code || strlen */
char *str; /* String */
} herc_args;
@\Rogue\Monster\
else
echo "shar: Will not over write herc.h"
fi
if `test ! -s herc.readme`
then
echo "x - herc.readme"
cat > herc.readme << '@\Rogue\Monster\'
A Hercules Graphics Driver for Microport Unix Sys V/AT
Driver translation by John Antypas
...!ucsd!ucrmath!soft21!jantypas
jantypas@Soft21.Riverside.CA.US
jantypas%soft21.Riverside.CA.US@Garp.MIT.EDU
The code that follows provides simple line graphics for a hercules monographics
card under Microport Unix Sys V/AT. This code should work with any Sys V/AT
version, but I have only tested it on 2.3.1L. It provides the full screen
window for graphics (720 x 350) and handles the details of switching the
console out etc.
The code does NOT lock the console out! ANY uuer openning /dev/herc will
cause the console to flip to graphics mode. For this reason, one should only
use graphics via a library which checks to see if that users termianl
is the console itself to prevent anyone from disturbing the work in progress
on the console displays!
When /dev/herc is openned, the console switches from text to graphics mode.
The screen will then clear. Commands are sent to the driver via ioctl() calls.
HERC_TEXT - Switch to text mode
HERC_GRAF - Switch to graphics mode
HERC_CLEAR - Clear graphics screen
HERC_PLOT - Plot a dot on the screen of color C
HERC_LINE - Draw a line on the screen of color C
HERC_BOX - Draw a box
HERC_CHAR - Plot a character on the screen (90 x 44)
HERC_STR - Write a string via HERC_CHAR calls
All arguments are passed through a structure herc_args in the header file.
Not all paramters are required for all calls. The color integer can be used
for many things ranging from a color code to a character code for CHAR calls or
the string length code in the HERC_STR call. A test program is provided that
shows these in action.
Some warnings. Driver space is always scarce so no real checking is done
on parameters beyond those which, if they we're wrong, would panic the kernel.
Screen size is:
For graphics: 0 -> 719 X 0 -> 347
For Text: 0 -> 89 X 0 -> 42 { Characters 8x8 }
My master file and dfile look like this (choose your own device numbers)
herc 0 oci c hg 0 15 1 { Master }
herc 0 1 { dfile }
Improvements:
The documentation needs work, I'm working on a user C library interface
that also checks to see if the console is in use.
Changes:
Feel free to make any changes you like so long as I get copies of them.
(I want all of that neat stuff too!) For those of you who
remember the earlier driver, I removed the string parsing because (a) why
waste kernel time and (b) no one liked that idea anyway.. so I took it out.
The code (how ever crude) is entirely property of Microport Inc. You are
welcome to make any changes as you desire so long as you don't do anything
which would cause myself or John Sully, Keith, Mr. Plocher or any of the other
fine folks at Microport to lose money while you or others make it. In other
words, D O N ' T S E L L T H I S ! ! !
The test program included (herctest.c) must be compiled in the large model as
it uses the HERC_STR call. This call passes a character pointer in the
argument structure. Since the kernel is large model, when a program uses
this call, it, too, must be in the large model. (cc -Ml herctest.c -o test -lm)
The driver understands color "types". See hg_plot in the source for details.
@\Rogue\Monster\
else
echo "shar: Will not over write herc.readme"
fi
if `test ! -s herctest.c`
then
echo "x - herctest.c"
cat > herctest.c << '@\Rogue\Monster\'
# include <stdio.h>
# include <fcntl.h>
# include <sys/herc.h>
# include <math.h>
main(argc, argv)
int argc;
char *argv[];
{
int fd, i;
char strbuff[90];
herc_args hv;
fd = open("/dev/herc", O_WRONLY);
ioctl(fd, HERC_CLEAR, &hv); /* Clear screen */
/* Do some random dots */
hv.x1 = 35 ; hv.y1 = 35; hv.c = strlen("Some random dots.");
hv.str = "Some random dots.";
ioctl(fd, HERC_STR, &hv);
for (i = 0; i < 100; i ++)
{
hv.x1 = abs(lrand48() % 719);
hv.y1 = abs(lrand48() % 347);
hv.c = 1;
ioctl(fd, HERC_PLOT, &hv);
};
sleep(10);
/* Do some random lines */
ioctl(fd, HERC_CLEAR, &hv); /* Clear screen */
hv.x1 = 35 ; hv.y1 = 35; hv.c = strlen("Some random lines.");
hv.str = "Some random lines.";
ioctl(fd, HERC_STR, &hv);
for (i = 0; i < 50; i ++)
{
hv.x1 = abs(lrand48() % 719);
hv.y1 = abs(lrand48() % 347);
hv.x2 = abs(lrand48() % 719);
hv.y2 = abs(lrand48() % 347);
hv.c = 0x01;
ioctl(fd, HERC_LINE, &hv);
};
sleep(10);
/* Do some random boxes */
ioctl(fd, HERC_CLEAR, &hv); /* Clear screen */
hv.x1 = 35 ; hv.y1 = 35; hv.c = strlen("Some random boxes.");
hv.str = "Some random boxes.";
ioctl(fd, HERC_STR, &hv);
for (i = 0; i < 30; i ++)
{
hv.x1 = abs(lrand48() % 719);
hv.y1 = abs(lrand48() % 347);
hv.x2 = abs(lrand48() % 719);
hv.y2 = abs(lrand48() % 347);
hv.c = 0x01;
ioctl(fd, HERC_BOX, &hv);
};
sleep(10);
/* Some characters drawn the hard way --- char. by char. */
ioctl(fd, HERC_CLEAR, &hv); /* Clear screen */
for (i= 0; i< 30; i++)
{
hv.x1 = 5+(i*2); hv.y1 = 20; hv.c = i+40;
ioctl(fd, HERC_CHAR, &hv);
};
sleep(10);
/* Do some random boxes but show color "types" */
for (i = 0; i < 10; i ++)
{
sprintf(strbuff, "Boxes with code %d", LITBIT+DARKBIT+(i*5));
ioctl(fd, HERC_CLEAR, &hv); /* Clear screen */
hv.x1 = 35 ; hv.y1 = 35;
hv.c = strlen(strbuff);
hv.str = strbuff;
ioctl(fd, HERC_STR, &hv);
hv.c = strlen("Lit and dark bits set. See hgplot in source.");
hv.str = "Lit and dark bits set. See hgplot in source.";
hv.x1 = 20 ; hv.y1 = 37;
ioctl(fd, HERC_STR, &hv);
hv.x1 = 150;
hv.y1 = 50;
hv.x2 = 600;
hv.y2 = 250;
hv.c = LITBIT+DARKBIT+(5*i); /* Lit and dark bits */
ioctl(fd, HERC_BOX, &hv);
sleep(1);
};
sleep(10);
/* Finish up */
ioctl(fd, HERC_CLEAR, &hv); /* Clear screen */
for (i= 0; i<50; i++)
{
hv.x1 = 50+i*2;
hv.y1 = 50+i*2;
hv.x2 = 300-i*2;
hv.y2 = 300-i*2;
hv.c = i*2+192;
ioctl(fd, HERC_BOX, &hv);
};
hv.str = "That's all folks!";
hv.c = strlen("That's all folks!");
hv.x1 = 55; hv.y1 = 35;
ioctl(fd, HERC_STR, &hv);
sleep(10);
close(fd);
}
@\Rogue\Monster\
else
echo "shar: Will not over write herctest.c"
fi
# to concatenate archives, remove anything after this line
exit 0