Context Navigation

VTEXT.C@ 4810254

Last change on this file since 4810254 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago
Imported original source code.
Property mode set to `100755`
File size: 672 bytes

Rev	Line
[3ae31e9]	1	/*
	2	=============================================================================
	3	vtext.c -- output a text string to the VSDD in 1 byte / character mode
	4	Version 3 -- 1987-06-02 -- D.N. Lynx Crowe
	5
	6	Assumes VSDD is pointing at bank 0.
	7	=============================================================================
	8	*/
	9
	10	static int msk[] = { 0xFF00, 0x00FF };
	11
	12	vtext(obj, nc, row, col, ip)
	13	register unsigned *obj, nc, row, col;
	14	register char *ip;
	15	{
	16	register unsigned *op;
	17
	18	while (*ip) {
	19
	20	op = obj + ((nc >> 1) * row) + (col >> 1);
	21
	22	op = (op & (unsigned)msk[col & 1]) \|
	23	((*ip++ & 0x00FF) << ((col & 1) ? 8 : 0));
	24
	25	col++;
	26	}
	27	}

Note: See TracBrowser for help on using the repository browser.