changelog shortlog tags branches changeset files revisions annotate raw help

Mercurial > hg > plan9front / sys/src/games/blit/mem.c

changeset 6228: f4fa0b9d0397
parent: 6842e7932c68
child: f5cfa4c4d3be
author: cinap_lenrek@felloff.net
date: Sun, 26 Nov 2017 17:11:01 +0100
permissions: -rw-r--r--
description: cga: capture cga console contents on boot, make sure cgapos is in range

to capture bios and bootloader messages, convert the contents
on the screen to kmesg.

on machines without legacy cga, the cga registers read out as
0xFF, resuting in out of bounds cgapos. so set cgapos to 0 in
that case.		 
     1 #include <u.h>

     2 #include <libc.h>

     3 #include <thread.h>

     4 #include <draw.h>

     5 #include <bio.h>

     6 #include <mouse.h>

     7 #include "dat.h"

     8 #include "fns.h"

     9 

    10 u32int irq;

    11 u32int irql[8] = {

    12 	[1] INTVBL,

    13 	[2] INTKEY,

    14 	[4] INTMOUSE,

    15 	[5] INTUART,

    16 };

    17 int diag;

    18 

    19 ushort ram[128*1024];

    20 ushort rom[3*4096];

    21 Channel *keych;

    22 Channel *uartrxch, *uarttxch;

    23 int mousex, mousey, mousebut;

    24 

    25 int yes;

    26 u8int kbdctrl, uartctrl;

    27 enum {

    28 	ACIATXMASK = 0x60,

    29 	ACIATXIRQ = 0x20,

    30 	ACIARXIRQ = 0x80,

    31 };

    32 

    33 int keybuf = -1;

    34 int uartrxbuf = -1;

    35 int uarttxbuf = -1;

    36 

    37 void

    38 meminit(void)

    39 {

    40 	int i, x;

    41 	Biobuf *bp;

    42 	char *s;

    43 	ushort *p, *q;

    44 	

    45 	p = rom;

    46 	if(diag){

    47 		bp = Bopen("/sys/lib/blit/diagbits", OREAD);

    48 		if(bp == nil) sysfatal("Bopen: %r");

    49 		Bread(bp, rom, sizeof(rom));

    50 		Bterm(bp);

    51 		return;

    52 	}

    53 	for(i = 0; i < 6; i++){

    54 		bp = Bopen(smprint("/sys/lib/blit/rom%d", i), OREAD);

    55 		if(bp == nil) sysfatal("Bopen: %r");

    56 		q = p;

    57 		for(;;){

    58 			s = Brdline(bp, '\n');

    59 			if(s == nil || Blinelen(bp) == 0) break;

    60 			s[Blinelen(bp) - 1] = 0;

    61 			x = strtol(s, nil, 8);

    62 			if((i & 1) != 0)

    63 				*p |= x << 8;

    64 			else

    65 				*p |= x;

    66 			p++;

    67 		}

    68 		if((i & 1) == 0) p = q;

    69 		Bterm(bp);

    70 	}

    71 }

    72 

    73 void

    74 keycheck(void)

    75 {

    76 	yield();

    77 

    78 	if(keybuf < 0)

    79 		nbrecv(keych, &keybuf);

    80 	if(keybuf >= 0 && (kbdctrl & ACIARXIRQ) != 0)

    81 		irq |= INTKEY;

    82 	else

    83 		irq &= ~INTKEY;

    84 	

    85 	if(uartrxbuf < 0 && uartrxctr <= 0){

    86 		nbrecv(uartrxch, &uartrxbuf);

    87 		uartrxctr = FREQ * 11 / baud;

    88 	}

    89 	if(uarttxbuf >= 0 && nbsend(uarttxch, &uarttxbuf) > 0)

    90 		uarttxbuf = -1;

    91 	if(uartrxbuf >= 0 && (uartctrl & ACIARXIRQ) != 0 || uarttxbuf < 0 && (uartctrl & ACIATXMASK) == ACIATXIRQ)

    92 		irq |= INTUART;

    93 	else

    94 		irq &= ~INTUART;

    95 }

    96 

    97 u16int

    98 memread(u32int a)

    99 {

   100 	int rc;

   101 

   102 	a &= 0x3fffff;

   103 	if(a < 8) a += 0x40000;

   104 	if(a < 0x40000) return ram[a/2];

   105 	if(a >= 0x40000 && a < 0x40000 + sizeof(rom))

   106 		return rom[(a - 0x40000)/2];

   107 	switch(a & ~1){

   108 	case 01400000: return mousey;

   109 	case 01400002: return mousex;

   110 	case 01400010: /* uart status */

   111 		rc = 0;

   112 		if(uartrxbuf >= 0) rc |= 1;

   113 		if(uarttxbuf < 0) rc |= 2;

   114 		return rc | rc << 8;

   115 	case 01400012: /* uart data */

   116 		rc = uartrxbuf;

   117 		uartrxbuf = -1;

   118 		yes=1;

   119 		return rc | rc << 8;

   120 	case 01400020:

   121 	case 01400024:

   122 		irq &= ~INTMOUSE;

   123 		return mousebut | mousebut << 8;

   124 	case 01400026: return 0; /* mouse: unknown purpose */

   125 	case 01400030: return daddr >> 2; /* display address */

   126 	case 01400040: return dstat; /* display status */

   127 	case 01400060: /* keyboard status */

   128 		rc = 2;

   129 		if(keybuf >= 0) rc |= 1;

   130 		return rc | rc << 8;

   131 	case 01400062: /* keyboard data */

   132 		rc = keybuf;

   133 		keybuf = -1;

   134 		return rc | rc << 8;

   135 	}

   136 	print("read %.8o (curpc = %.6x)\n", a, curpc & 0x3fffff);

   137 	return 0;

   138 }

   139 

   140 void

   141 memwrite(u32int a, u16int v, u16int m)

   142 {

   143 	extern Rectangle updated;

   144 	int x, y;

   145 

   146 	a &= 0x3fffff;

   147 	if(a < 0x40000){

   148 		if(a >= daddr){

   149 			y = (a - daddr) / 100;

   150 			x = (((a & ~1) - daddr) % 100) * 8;

   151 			if(updated.min.x > x) updated.min.x = x;

   152 			if(updated.max.x < x+16) updated.max.x = x+16;

   153 			if(updated.min.y > y) updated.min.y = y;

   154 			if(updated.max.y <= y) updated.max.y = y+1;

   155 		}

   156 		ram[a/2] = ram[a/2] & ~m | v & m;

   157 		return;

   158 	}

   159 	switch(a & ~1){

   160 	case 01400010: uartctrl = v; return;

   161 	case 01400012: uarttxbuf = (uchar) v; return;

   162 	case 01400024: return; /* mouse: purpose unknown */

   163 	case 01400026: return; /* mouse: purpose unknown */

   164 	case 01400030: daddr = ((daddr >> 2) & ~m | v & m) << 2; return;

   165 	case 01400040: dstat = dstat & ~m | v & m; invert = -(dstat & 1); updated = Rect(0, 0, SX, SY); return;

   166 	case 01400056: /* sound; exact function unknown */ return;

   167 	case 01400060: kbdctrl = v; return;

   168 	case 01400062: /* reset keyboard */ return;

   169 	case 01400070: irq &= ~INTVBL; return;

   170 	case 01400156: /* sound; exact function unknown */ return;

   171 	}

   172 	print("write %.8o = %.4x (mask = %.4x, curpc = %.6x)\n", a, v, m, curpc & 0x3fffff);

   173 }

   174 

   175 int

   176 intack(int l)

   177 {

   178 	return 24+l;

   179 }