diff options
Diffstat (limited to 'usr.sbin/pcvt/vgaio/vgaio.y')
-rw-r--r-- | usr.sbin/pcvt/vgaio/vgaio.y | 251 |
1 files changed, 0 insertions, 251 deletions
diff --git a/usr.sbin/pcvt/vgaio/vgaio.y b/usr.sbin/pcvt/vgaio/vgaio.y deleted file mode 100644 index 0e7dd79..0000000 --- a/usr.sbin/pcvt/vgaio/vgaio.y +++ /dev/null @@ -1,251 +0,0 @@ -%{ -/* - * 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; -} |