1991/0730/pc/vga.c (diff list | history)

1991/0730/sys/src/9/pc/vga.c:1,275 – 1991/0731/sys/src/9/pc/vga.c:1,275 (short | long | prev | next)
1991/0723		#include "u.h" #include "lib.h" #include "mem.h" #include "dat.h" #include "fns.h" #include "io.h"
1991/0730		#include <libg.h> #include <gnot.h> #include "screen.h" #define MINX 8 extern GFont defont0; GFont *defont; struct{ Point pos; int bwid; }out; /* * screen dimensions */ #define MAXX 640 #define MAXY 480 #define SCREENMEM (0xA0000 | KZERO) GBitmap gscreen = { (ulong*)SCREENMEM, 0, 640/32, 0, 0, 0, MAXX, MAXY, 0 };
1991/0723		enum { GRX= 0x3CE, /* index to graphics registers */
1991/0727		GR= 0x3CF, /* graphics registers */ Grot= 0x03, /* data rotate register */ Gmode= 0x05, /* mode register */ Gmisc= 0x06, /* miscillaneous register */ Grms= 0x04, /* read map select register */
1991/0724		SRX= 0x3C4, /* index to sequence registers */
1991/0727		SR= 0x3C5, /* sequence registers */ Sclock= 0x01, /* clocking register */ Smode= 0x04, /* mode register */ Smmask= 0x02, /* map mask */ CRX= 0x3D4, /* index to crt registers */ CR= 0x3D5, /* crt registers */ Cmode= 0x17, /* mode register */ Cmsl= 0x09, /* max scan line */ ARX= 0x3C0, /* index to attribute registers */ AR= 0x3C1, /* attribute registers */ Amode= 0x10, /* mode register */ Acpe= 0x12, /* color plane enable */
1991/0723		};
1991/0727		/* * routines for setting vga registers */
1991/0724		void srout(int reg, int val) { outb(SRX, reg); outb(SR, val); } void grout(int reg, int val) { outb(GRX, reg); outb(GR, val); }
1991/0727		void arout(int reg, int val) { inb(0x3DA); outb(ARX, reg | 0x20); outb(AR, val); } void crout(int reg, int val) { outb(CRX, reg); outb(CR, val); }
1991/0724
1991/0723		/*
1991/0727		* m is a bit mask of planes to be affected by CPU writes
1991/0723		*/
1991/0727		vgawrmask(int m) { srout(Smmask, m&0xf); } /* * p is the plane that will respond to CPU reads */ vgardplane(int p) { grout(Grms, p&3); } /* * partial screen munching squares */ #define DELTA 1 #define DADDR ((long *) 0) #define SIDE 256
1991/0723		void
1991/0727		munch(void) { ulong x,y,i,d; uchar *screen, tab[8], *p;
1991/0730		screen = (uchar *)SCREENMEM;
1991/0727		d=0; tab[0] = 0x80; tab[1] = 0x40; tab[2] = 0x20; tab[3] = 0x10; tab[4] = 0x08; tab[5] = 0x04; tab[6] = 0x02; tab[7] = 0x01; for(i=0; i<MAXY*(MAXX/8); i++) screen[i]=0; for(;;){ for(x=0; x<SIDE; x++){ y = (x^d) % SIDE; p = &screen[y*(MAXX/8) + (x/8)]; y = *p; *p = y ^ tab[x&7]; } d+=DELTA; } } /* * Set up for 4 separately addressed bit planes. Each plane is */ void
1991/0730		screeninit(void)
1991/0723		{
1991/0724		uchar *display;
1991/0727		int i, j, k; int c;
1991/0730		ulong *l;
1991/0723
1991/0730		display = (uchar *)SCREENMEM;
1991/0727		arout(Acpe, 0x0f); /* enable all planes */ arout(Amode, 0x01); /* graphics mode - 4 bit pixels */ grout(Gmisc, 0x01); /* graphics mode */ grout(Gmode, 0x00); /* write mode 0, read mode 0 */ grout(Grot, 0x00); /* CPU writes bytes to video mem without modifications */ crout(Cmode, 0xe3); /* turn off address wrap & word mode */ crout(Cmsl, 0x40); /* 1 pixel per scan line */ srout(Smode, 0x06); /* extended memory, odd/even off */ srout(Sclock, 0x01); /* 8 bits/char */
1991/0730		srout(Smmask, 0x0f); /* enable all 4 color planes for writing */
1991/0724
1991/0727		/* * zero out display */
1991/0730		defont = &defont0; /* save space; let bitblt do the conversion work */ gbitblt(&gscreen, Pt(0, 0), &gscreen, gscreen.r, 0); /**/ /* * stick print at the top */ out.pos.x = MINX; out.pos.y = 0; out.bwid = defont0.info[' '].width; /* * swizzle the damn font longs. * we do it here since the font is in a machine independent (i.e. * made for the 68020) format. */ l = defont->bits->base; for(i = defont->bits->width*Dy(defont->bits->r); i > 0; i--, l++) *l = (*l<<24) | ((*l>>8)&0x0000ff00) | ((*l<<8)&0x00ff0000) | (*l>>24);
1991/0723		}
1991/0727
1991/0730		void screenputc(int c) { char buf[2]; int nx; if(c == '\n'){ out.pos.x = MINX; out.pos.y += defont0.height; if(out.pos.y > gscreen.r.max.y-defont0.height) out.pos.y = gscreen.r.min.y; gbitblt(&gscreen, Pt(0, out.pos.y), &gscreen, Rect(0, out.pos.y, gscreen.r.max.x, out.pos.y+2*defont0.height), 0); }else if(c == '\t'){ out.pos.x += (8-((out.pos.x-MINX)/out.bwid&7))*out.bwid; if(out.pos.x >= gscreen.r.max.x) screenputc('\n'); }else if(c == '\b'){ if(out.pos.x >= out.bwid+MINX){ out.pos.x -= out.bwid; screenputc(' '); out.pos.x -= out.bwid; } }else{ if(out.pos.x >= gscreen.r.max.x-out.bwid) screenputc('\n'); buf[0] = c&0x7F; buf[1] = 0; out.pos = gstring(&gscreen, out.pos, defont, buf, S); } } void screenputs(char *s, int n) { while(n-- > 0) screenputc(*s++); } int screenbits(void) { return 1; /* bits per pixel */ } void getcolor(ulong p, ulong *pr, ulong *pg, ulong *pb) { ulong ans; /* * The magnum monochrome says 0 is black (zero intensity)
1991/0731		* The safari monochrome says 0 is black (zero intensity)
1991/0730		*/ if(p == 0) ans = 0; else ans = ~0; *pr = *pg = *pb = ans; } int setcolor(ulong p, ulong r, ulong g, ulong b) { return 0; /* can't change mono screen colormap */ } int hwcursset(uchar *s, uchar *c, int ox, int oy) { return 0; } int hwcursmove(int x, int y) { return 0; } void mouseclock(void) /* called splhi */ { mouseupdate(1); }