harvey/sys/src/boot/alphapc/cons.c

#include	"u.h"
#include	"mem.h"
#include	"dat.h"
#include	"fns.h"
#include	"lib.h"

enum {
	/* prom operations */
	Promop_getc   = 1,
	Promop_puts   = 2,
	Promop_open   = 0x10,
	Promop_close  = 0x11,
	Promop_read   = 0x13,
	Promop_write  = 0x14,
	Promop_getenv = 0x22,

	/* environment variable indices for getenv */
	/* auto_action might be 1; it looks that way. */
	Promenv_booted_dev	= 4,
	Promenv_booted_file	= 6,
	Promenv_booted_osflags	= 8,
	Promenv_tty_dev		= 0xf,
};

Hwrpb	*hwrpb;

static uvlong	dispatchf;
static ulong	clk2ms;

void
consinit(void)
{
	Procdesc *p;
	Hwcrb *crb;
	Hwdsr *dsr;
	char *s;

	hwrpb = (Hwrpb*)0x10000000;

	crb = (Hwcrb*)((ulong)hwrpb + hwrpb->crboff);
	p = (Procdesc*)(crb->dispatchva);
	dispatchf = p->addr;
	clk2ms = hwrpb->cfreq/1000;

	print("\nAlpha Plan 9 secondary boot\n");
	if (hwrpb->rev >= 6) {
		dsr = (Hwdsr*)((ulong)hwrpb + hwrpb->dsroff);
		s = (char*)dsr + dsr->sysnameoff + 8;
		print("%s\n", s);
	}
}

uvlong
dispatch(uvlong r16, uvlong r17, uvlong r18, uvlong r19, uvlong r20)
{
	return gendispatch(dispatchf, r16, r17, r18, r19, r20);
};

int
devopen(char *s)
{
	vlong ret;
	int n;

	n = strlen(s);
	ret = dispatch(0x10, (uvlong)s, n, 0, 0);
	if (ret < 0)
		return -1;
	return (int) ret;
}

int
devclose(int fd)
{
	vlong ret;

	ret = dispatch(0x11, fd, 0, 0, 0);
	if (ret < 0)
		return -1;
	return 0;
}

int
devread(int fd, uchar *buf, int len, int blkno)
{
	vlong ret;

	ret = dispatch(0x13, fd, len, (uvlong)buf, blkno);
	if (ret < 0)
		return -1;
	return (int) ret;
}

int
devwrite(int fd, uchar *buf, int len, int blkno)
{
	vlong ret;

	ret = dispatch(0x14, fd, len, (uvlong)buf, blkno);
	if (ret < 0)
		return -1;
	return (int) ret;
}

void
dumpenv(void)
{
	int id, n;
	static char buf[256];

	/* old upper bound was 0x100, which blows up on my 164LX. 50 works. */
	for (id = 1; id < 50; id++) {
		n = dispatch(Promop_getenv, id, (uvlong)buf, sizeof(buf)-1, 0);
		if (n == 0)
			continue;
		if (n < 0) {
			print("dispatch failed at id %d\n", id);
			break;
		}
		buf[n] = 0;
		print("env[0x%x]: %s\n", id, buf);
	}
}

char *
getenv(char *name)
{
	int id, n;
	static char buf[256];

	if (strcmp(name, "booted_dev") == 0)
		id = Promenv_booted_dev;
	else
		return 0;
	n = dispatch(Promop_getenv, id, (uvlong)buf, sizeof(buf), 0);
	if (n < 0)
		return 0;
	buf[n] = 0;
	return buf;
}

void
putstrn0(char *s, int n)
{
	uvlong ret;
	int cnt;

	for (;;) {
		ret = dispatch(2, 0, (uvlong)s, n, 0);
		cnt = (int) ret;
		s += cnt;
		n -= cnt;
		if (n <= 0)
			break;
	}
}

void
putstrn(char *s, int n)
{
	char *p;

	for (;;) {
		if (n == 0)
			return;
		p = memchr(s, '\n', n);
		if (p == 0) {
			putstrn0(s, n);
			return;
		}
		putstrn0(s, p-s);
		putstrn0("\r\n", 2);
		n -= p-s+1;
		s = p+1;
	}
}

int
snprint(char *s, int n, char *fmt, ...)
{
	va_list arg;

	va_start(arg, fmt);
	n = doprint(s, s+n, fmt, arg) - s;
	va_end(arg);
	return n;
}

int
sprint(char *s, char *fmt, ...)
{
	int n;
	va_list arg;

	va_start(arg, fmt);
	n = doprint(s, s+PRINTSIZE, fmt, arg) - s;
	va_end(arg);
	return n;
}

int
print(char *fmt, ...)
{
	int n;
	va_list arg;
	char buf[PRINTSIZE];

	va_start(arg, fmt);
	n = doprint(buf, buf+sizeof(buf), fmt, arg) - buf;
	va_end(arg);
	putstrn(buf, n);

	return n;
}

void
panic(char *fmt, ...)
{
	int n;
	va_list arg;
	char buf[PRINTSIZE];

	strcpy(buf, "panic: ");
	va_start(arg, fmt);
	n = doprint(buf+strlen(buf), buf+sizeof(buf), fmt, arg) - buf;
	va_end(arg);
	buf[n] = '\n';
	putstrn(buf, n+1);
	firmware();
}

ulong
msec(void)
{
	static ulong last, wrap;
	ulong cnt;

	cnt = pcc_cnt();
	if (cnt < last)
		wrap++;
	last = cnt;
	return (((uvlong)wrap << 32) + cnt)/clk2ms;
}