diff options
Diffstat (limited to 'usr.sbin/pcvt/vgaio/vgaio.y')
| -rw-r--r-- | usr.sbin/pcvt/vgaio/vgaio.y | 251 |
1 files changed, 251 insertions, 0 deletions
diff --git a/usr.sbin/pcvt/vgaio/vgaio.y b/usr.sbin/pcvt/vgaio/vgaio.y new file mode 100644 index 0000000..0e7dd79 --- /dev/null +++ b/usr.sbin/pcvt/vgaio/vgaio.y @@ -0,0 +1,251 @@ +%{ +/* + * Copyright (c) 1994 Joerg Wunsch + * + * All rights reserved. + * + * This program is free software. + * + * 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 Joerg Wunsch + * 4. The name of the developer may not be used to endorse or promote + * products derived from this software without specific prior written + * permission. + * + * THIS SOFTWARE IS PROVIDED BY THE DEVELOPERS ``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 DEVELOPERS 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. + */ + +#ident "$Header: /b/source/CVS/src/sys/arch/i386/isa/pcvt/Util/vgaio/vgaio.y,v 1.1 1994/03/29 02:47:27 mycroft Exp $" + +/* + * $Log: vgaio.y,v $ + * Revision 1.1 1994/03/29 02:47:27 mycroft + * pcvt 3.0, with some performance enhancements by Joerg Wunsch and me. + * + * Revision 1.2 1994/01/08 17:42:58 j + * cleanup + * made multiple commands per line work + * wrote man page + * + * Revision 1.3 21.12.1994 -hm + * Added mi command for accessing the misc out register + * hex values shown as 2 fixed chars, added binary output + */ + +#include <stdio.h> +#include <stdlib.h> +#include <sys/fcntl.h> +#include <machine/cpufunc.h> +#include <machine/pcvt_ioctl.h> + +#ifdef __NetBSD__ +#include <machine/pio.h> +#endif + +#include "vgaio.h" + +void setreg(struct reg r, int val); +void getreg(struct reg r); +void yyerror(const char *msg); + +#define YYDEBUG 1 + +unsigned short vgabase; + +%} + +%union { + int num; + struct reg reg; +} + +%token MI GR CR SR AR NEWLINE +%token <num> NUM + +%type <num> reggroup +%type <reg> register + +%% + +interpret: lines ; + +lines: line + | lines line + ; + +line: statements NEWLINE + | NEWLINE + | error NEWLINE { fprintf(stderr, "bing!\n"); } + ; + +statements: statement + | statements ';' statement + ; + +statement: register '?' { getreg($1); } + | register '=' NUM { setreg($1, $3); } + | /* lambda */ + ; + +register: reggroup NUM { $$.num = $2; $$.group = $1; } + ; + +reggroup: GR { $$ = GR; } + | CR { $$ = CR; } + | SR { $$ = SR; } + | AR { $$ = AR; } + | MI { $$ = MI; } + ; + +%% + +static struct { + int id; + const char *name; +} regnames[] = { + {GR, "gr"}, {CR, "cr"}, {SR, "sr"}, {AR, "ar"}, {MI, "mi"}, + {0, 0} +}; + +const char *getname(struct reg r) { + int idx; + for(idx = 0; regnames[idx].id; idx++) + if(regnames[idx].id == r.group) + return regnames[idx].name; + return "??"; +} + +/*---------------------------------------------------------------------------* + * return ptr to string of 1's and 0's for value + *---------------------------------------------------------------------------*/ +char * +bin_str(unsigned long val, int length) +{ + static char buffer[80]; + int i = 0; + + if (length > 32) + length = 32; + + val = val << (32 - length); + + while (length--) + { + if (val & 0x80000000) + buffer[i++] = '1'; + else + buffer[i++] = '0'; + if ((length % 4) == 0 && length) + buffer[i++] = '.'; + val = val << 1; + } + return (buffer); +} + +void getreg(struct reg r) { + int val; /* FreeBSD gcc ONLY accepts an int !! */ + + switch(r.group) { + case GR: + outb(0x3ce, r.num); + val = inb(0x3cf); + break; + + case AR: + r.num &= 0x1f; + (void)inb(vgabase + 0x0a); + outb(0x3c0, r.num + 0x20); + val = inb(0x3c1); + break; + + case CR: + outb(vgabase + 4, r.num); + val = inb(vgabase + 5); + break; + + case SR: + outb(0x3c4, r.num); + val = inb(0x3c5); + break; + + case MI: + val = inb(0x3cc); + break; + } + + printf("%s%02x = 0x%02x = %s (bin)\n", getname(r), r.num, val, bin_str(val,8)); +} + +void setreg(struct reg r, int val) { + switch(r.group) { + case GR: + outb(0x3ce, r.num); + outb(0x3cf, val); + break; + + case AR: + r.num &= 0x1f; + (void)inb(vgabase + 0x0a); + outb(0x3c0, r.num); + outb(0x3c0, val); + outb(0x3c0, r.num + 0x20); + break; + + case CR: + outb(vgabase + 4, r.num); + outb(vgabase + 5, val); + break; + + case SR: + outb(0x3c4, r.num); + outb(0x3c5, val); + break; + + case MI: + outb(0x3c2, val); + break; + } + + printf("%s%02x set to 0x%02x = %s (bin) now\n", getname(r), r.num, val, bin_str(val,8)); +} + +void yyerror(const char *msg) { + fprintf(stderr, "yyerror: %s\n", msg); +} + +int main(int argc, char **argv) { + int fd; + + if(argc > 1) yydebug = 1; + + if((fd = open("/dev/console", O_RDONLY)) < 0) + fd = 0; + + if(ioctl(fd, KDENABIO, 0) < 0) { + perror("ioctl(KDENABIO)"); + return 1; + } + vgabase = (inb(0x3cc) & 1)? 0x3d0: 0x3b0; + yyparse(); + + (void)ioctl(fd, KDDISABIO, 0); + return 0; +} |
