[picodrive.git] / pico / draw2.c

/*\r
 * tile renderer\r
 * (C) notaz, 2006-2008\r
 * (C) irixxxx, 2020-2023\r
 *\r
 * This work is licensed under the terms of MAME license.\r
 * See COPYING file in the top-level directory.\r
 */\r
\r
#include "pico_int.h"\r
\r
#define START_ROW  0 // which row of tiles to start rendering at?\r
#define END_ROW   28 // ..end\r
\r
#define VSRAM      0 // 2-cell vscroll (broken for line based hscroll)\r
#define INTERLACE  0 // interlace mode 2\r
\r
#define TILE_ROWS END_ROW-START_ROW\r
\r
// note: this is not implemented in ARM asm\r
#if defined(DRAW2_OVERRIDE_LINE_WIDTH)\r
#define LINE_WIDTH DRAW2_OVERRIDE_LINE_WIDTH\r
#else\r
#define LINE_WIDTH 328\r
#endif\r
\r
static unsigned char PicoDraw2FB_[LINE_WIDTH * (8+240+8) + 8];\r
\r
static u32 HighCache2A[2*41*(TILE_ROWS+1)+1+1]; // caches for high layers\r
static u32 HighCache2B[2*41*(TILE_ROWS+1)+1+1];\r
\r
unsigned short *PicoCramHigh=PicoMem.cram; // pointer to CRAM buff (0x40 shorts), converted to native device color (works only with 16bit for now)\r
void (*PicoPrepareCram)(void) = NULL;      // prepares PicoCramHigh for renderer to use\r
\r
\r
// stuff available in asm:\r
#ifdef _ASM_DRAW_C\r
void BackFillFull(void *dst, int reg7, int lwidth);\r
void DrawLayerFull(int plane, u32 *hcache, int planestart, int planeend,\r
                   struct PicoEState *est);\r
void DrawTilesFromCacheF(u32 *hc, struct PicoEState *est);\r
void DrawWindowFull(int start, int end, int prio, struct PicoEState *est);\r
void DrawSpriteFull(unsigned int *sprite, struct PicoEState *est);\r
#else\r
\r
\r
static int TileXnormYnorm(unsigned char *pd,int addr,unsigned char pal, struct PicoEState *est)\r
{\r
	unsigned int pack=0; unsigned int t=0, blank = 1;\r
	unsigned short *vram = est->PicoMem_vram;\r
	int i, inc=2;\r
\r
#if INTERLACE\r
	if (est->rendstatus & PDRAW_INTERLACE) inc = 4;\r
#endif\r
	for(i=8; i; i--, addr+=inc, pd += est->Draw2Width) {\r
		pack=*(u32 *)(vram+addr); // Get 8 pixels\r
		if(!pack) continue;\r
\r
		t=pack&0x0000f000; if (t) pd[0]=(unsigned char)((t>>12)|pal);\r
		t=pack&0x00000f00; if (t) pd[1]=(unsigned char)((t>> 8)|pal);\r
		t=pack&0x000000f0; if (t) pd[2]=(unsigned char)((t>> 4)|pal);\r
		t=pack&0x0000000f; if (t) pd[3]=(unsigned char)((t    )|pal);\r
		t=pack&0xf0000000; if (t) pd[4]=(unsigned char)((t>>28)|pal);\r
		t=pack&0x0f000000; if (t) pd[5]=(unsigned char)((t>>24)|pal);\r
		t=pack&0x00f00000; if (t) pd[6]=(unsigned char)((t>>20)|pal);\r
		t=pack&0x000f0000; if (t) pd[7]=(unsigned char)((t>>16)|pal);\r
		blank = 0;\r
	}\r
\r
	return blank; // Tile blank?\r
}\r
\r
static int TileXflipYnorm(unsigned char *pd,int addr,unsigned char pal, struct PicoEState *est)\r
{\r
	unsigned int pack=0; unsigned int t=0, blank = 1;\r
	unsigned short *vram = est->PicoMem_vram;\r
	int i, inc=2;\r
\r
#if INTERLACE\r
	if (est->rendstatus & PDRAW_INTERLACE) inc = 4;\r
#endif\r
	for(i=8; i; i--, addr+=inc, pd += est->Draw2Width) {\r
		pack=*(u32 *)(vram+addr); // Get 8 pixels\r
		if(!pack) continue;\r
\r
		t=pack&0x000f0000; if (t) pd[0]=(unsigned char)((t>>16)|pal);\r
		t=pack&0x00f00000; if (t) pd[1]=(unsigned char)((t>>20)|pal);\r
		t=pack&0x0f000000; if (t) pd[2]=(unsigned char)((t>>24)|pal);\r
		t=pack&0xf0000000; if (t) pd[3]=(unsigned char)((t>>28)|pal);\r
		t=pack&0x0000000f; if (t) pd[4]=(unsigned char)((t    )|pal);\r
		t=pack&0x000000f0; if (t) pd[5]=(unsigned char)((t>> 4)|pal);\r
		t=pack&0x00000f00; if (t) pd[6]=(unsigned char)((t>> 8)|pal);\r
		t=pack&0x0000f000; if (t) pd[7]=(unsigned char)((t>>12)|pal);\r
		blank = 0;\r
	}\r
	return blank; // Tile blank?\r
}\r
\r
static int TileXnormYflip(unsigned char *pd,int addr,unsigned char pal, struct PicoEState *est)\r
{\r
	unsigned int pack=0; unsigned int t=0, blank = 1;\r
	unsigned short *vram = est->PicoMem_vram;\r
	int i, inc=2;\r
\r
#if INTERLACE\r
	if (est->rendstatus & PDRAW_INTERLACE) inc = 4, addr += 16;\r
#endif\r
	addr+=14;\r
	for(i=8; i; i--, addr-=inc, pd += est->Draw2Width) {\r
		pack=*(u32 *)(vram+addr); // Get 8 pixels\r
		if(!pack) continue;\r
\r
		t=pack&0x0000f000; if (t) pd[0]=(unsigned char)((t>>12)|pal);\r
		t=pack&0x00000f00; if (t) pd[1]=(unsigned char)((t>> 8)|pal);\r
		t=pack&0x000000f0; if (t) pd[2]=(unsigned char)((t>> 4)|pal);\r
		t=pack&0x0000000f; if (t) pd[3]=(unsigned char)((t    )|pal);\r
		t=pack&0xf0000000; if (t) pd[4]=(unsigned char)((t>>28)|pal);\r
		t=pack&0x0f000000; if (t) pd[5]=(unsigned char)((t>>24)|pal);\r
		t=pack&0x00f00000; if (t) pd[6]=(unsigned char)((t>>20)|pal);\r
		t=pack&0x000f0000; if (t) pd[7]=(unsigned char)((t>>16)|pal);\r
		blank = 0;\r
	}\r
\r
	return blank; // Tile blank?\r
}\r
\r
static int TileXflipYflip(unsigned char *pd,int addr,unsigned char pal, struct PicoEState *est)\r
{\r
	unsigned int pack=0; unsigned int t=0, blank = 1;\r
	unsigned short *vram = est->PicoMem_vram;\r
	int i, inc=2;\r
\r
#if INTERLACE\r
	if (est->rendstatus & PDRAW_INTERLACE) inc = 4, addr += 16;\r
#endif\r
	addr+=14;\r
	for(i=8; i; i--, addr-=inc, pd += est->Draw2Width) {\r
		pack=*(u32 *)(vram+addr); // Get 8 pixels\r
		if(!pack) continue;\r
\r
		t=pack&0x000f0000; if (t) pd[0]=(unsigned char)((t>>16)|pal);\r
		t=pack&0x00f00000; if (t) pd[1]=(unsigned char)((t>>20)|pal);\r
		t=pack&0x0f000000; if (t) pd[2]=(unsigned char)((t>>24)|pal);\r
		t=pack&0xf0000000; if (t) pd[3]=(unsigned char)((t>>28)|pal);\r
		t=pack&0x0000000f; if (t) pd[4]=(unsigned char)((t    )|pal);\r
		t=pack&0x000000f0; if (t) pd[5]=(unsigned char)((t>> 4)|pal);\r
		t=pack&0x00000f00; if (t) pd[6]=(unsigned char)((t>> 8)|pal);\r
		t=pack&0x0000f000; if (t) pd[7]=(unsigned char)((t>>12)|pal);\r
		blank = 0;\r
	}\r
	return blank; // Tile blank?\r
}\r
\r
\r
// start: (tile_start<<16)|row_start, end: [same]\r
static void DrawWindowFull(int start, int end, int prio, struct PicoEState *est)\r
{\r
	struct PicoVideo *pvid=&est->Pico->video;\r
	int nametab, nametab_step, trow, tilex, blank=-1, code;\r
	unsigned char *scrpos = est->Draw2FB;\r
	int scrstart = est->Draw2Start;\r
	int tile_start, tile_end; // in cells\r
\r
	// parse ranges\r
	tile_start = start>>16;\r
	tile_end = end>>16;\r
	start = start<<16>>16;\r
	end = end<<16>>16;\r
\r
	// Find name table line:\r
	if (!(est->rendstatus & PDRAW_32_COLS))\r
	{\r
		nametab=(pvid->reg[3]&0x3c)<<9; // 40-cell mode\r
		nametab_step = 1<<6;\r
	}\r
	else\r
	{\r
		nametab=(pvid->reg[3]&0x3e)<<9; // 32-cell mode\r
		nametab_step = 1<<5;\r
		if (est->rendstatus & PDRAW_BORDER_32)\r
			scrpos += 32;\r
	}\r
	nametab += nametab_step*(start-scrstart);\r
\r
	// check priority\r
	code=est->PicoMem_vram[nametab+tile_start];\r
	if ((code>>15) != prio) return; // hack: just assume that whole window uses same priority\r
\r
	scrpos+=8*est->Draw2Width+8;\r
	scrpos+=8*est->Draw2Width*(start-scrstart);\r
\r
	// do a window until we reach planestart row\r
	for(trow = start; trow < end; trow++, nametab+=nametab_step) { // current tile row\r
		for (tilex=tile_start; tilex<tile_end; tilex++)\r
		{\r
			int code,addr,zero=0;\r
//			unsigned short *pal=NULL;\r
			unsigned char pal;\r
\r
			code=est->PicoMem_vram[nametab+tilex];\r
			if (code==blank) continue;\r
\r
			// Get tile address/2:\r
#if INTERLACE\r
			if (est->rendstatus & PDRAW_INTERLACE)\r
				addr=(code&0x3ff)<<5;\r
			else\r
#endif\r
				addr=(code&0x7ff)<<4;\r
\r
//			pal=PicoCramHigh+((code>>9)&0x30);\r
			pal=(unsigned char)((code>>9)&0x30);\r
\r
			switch((code>>11)&3) {\r
				case 0: zero=TileXnormYnorm(scrpos+(tilex<<3),addr,pal,est); break;\r
				case 1: zero=TileXflipYnorm(scrpos+(tilex<<3),addr,pal,est); break;\r
				case 2: zero=TileXnormYflip(scrpos+(tilex<<3),addr,pal,est); break;\r
				case 3: zero=TileXflipYflip(scrpos+(tilex<<3),addr,pal,est); break;\r
			}\r
			if(zero) blank=code; // We know this tile is blank now\r
		}\r
\r
		scrpos += est->Draw2Width*8;\r
	}\r
}\r
\r
\r
static void DrawLayerFull(int plane, u32 *hcache, int planestart, int planeend,\r
			  struct PicoEState *est)\r
{\r
	struct PicoVideo *pvid=&est->Pico->video;\r
	static char shift[4]={5,6,5,7}; // 32,64 or 128 sized tilemaps\r
	int width, height, ymask, htab;\r
	int nametab, hscroll=0, vscroll, cells;\r
	unsigned char *scrpos;\r
	int scrstart = est->Draw2Start;\r
	int blank=-1, xmask, nametab_row, trow;\r
\r
	// parse ranges\r
	cells = (planeend>>16)-(planestart>>16);\r
	planestart = planestart<<16>>16;\r
	planeend = planeend<<16>>16;\r
\r
	// Work out the Tiles to draw\r
\r
	htab=pvid->reg[13]<<9; // Horizontal scroll table address\r
//	if ( pvid->reg[11]&2)     htab+=Scanline<<1; // Offset by line\r
//	if ((pvid->reg[11]&1)==0) htab&=~0xf; // Offset by tile\r
	htab+=plane; // A or B\r
\r
	if(!(pvid->reg[11]&3)) { // full screen scroll\r
		// Get horizontal scroll value\r
		hscroll=est->PicoMem_vram[htab&0x7fff];\r
		htab = 0; // this marks that we don't have to update scroll value\r
	}\r
\r
	// Work out the name table size: 32 64 or 128 tiles (0-3)\r
	width=pvid->reg[16];\r
	height=(width>>4)&3; width&=3;\r
\r
	xmask=(1<<shift[width ])-1; // X Mask in tiles\r
	ymask=(height<<5)|0x1f;     // Y Mask in tiles\r
	if(width == 1)   ymask&=0x3f;\r
	else if(width>1) ymask =0x1f;\r
\r
	// Find name table:\r
	if (plane==0) nametab=(pvid->reg[2]&0x38)<< 9; // A\r
	else          nametab=(pvid->reg[4]&0x07)<<12; // B\r
\r
	scrpos = est->Draw2FB;\r
	if ((~est->rendstatus & (PDRAW_BORDER_32|PDRAW_32_COLS)) == 0)\r
		scrpos += 32;\r
	scrpos+=8*est->Draw2Width*(planestart-scrstart);\r
\r
	if((pvid->reg[11]&4)||(PicoMem.vsram[plane]&7))\r
		planeend++; // we (may) have vertically clipped tiles due to vscroll, so we need 1 more row\r
	for(trow = planestart; trow < planeend; trow++) { // current tile row\r
		int cellc=cells,tilex,dx,vsidx=0;\r
\r
		// Get vertical scroll value:\r
		vscroll=PicoMem.vsram[plane];//&0x1ff;\r
#if VSRAM\r
		if ((est->rendstatus & PDRAW_32_COLS) && (pvid->reg[11]&4)) // H32 + 2-cell mode\r
			vscroll=PicoMem.vsram[plane+0x20];//&0x1ff;\r
#endif\r
#if INTERLACE\r
		if (est->rendstatus & PDRAW_INTERLACE)\r
			vscroll >>= 1;\r
#endif\r
		nametab_row = nametab + (((trow+(vscroll>>3))&ymask)<<shift[width]); // pointer to nametable entries for this row\r
\r
		// Find the tile row in the name table\r
		//ts.line=(vscroll+Scanline)&ymask;\r
		//ts.nametab+=(ts.line>>3)<<shift[width];\r
\r
		// update hscroll if needed\r
		if(htab) {\r
			int htaddr=htab+(trow<<4);\r
			if(trow) htaddr-=(vscroll&7)<<1;\r
			hscroll=est->PicoMem_vram[htaddr&0x7fff];\r
		}\r
\r
		// Draw tiles across screen:\r
		tilex=(-hscroll)>>3;\r
		dx=((hscroll-1)&7)+1;\r
		if(dx != 8) cellc++, vsidx--; // have hscroll, do more cells\r
\r
		for (; cellc; dx+=8,tilex++,cellc--)\r
		{\r
			int code=0,addr=0,zero=0,scroff;\r
//			unsigned short *pal=NULL;\r
			unsigned char pal;\r
\r
#if VSRAM\r
			if ((pvid->reg[11]&4) && !(vsidx&1)) { // 2-cell mode\r
				vscroll=PicoMem.vsram[vsidx+plane];//&0x1ff;\r
#if INTERLACE\r
				if (est->rendstatus & PDRAW_INTERLACE)\r
					vscroll >>= 1;\r
#endif\r
				nametab_row = nametab + (((trow+(vscroll>>3))&ymask)<<shift[width]); // pointer to nametable entries for this row\r
			}\r
#endif\r
			vsidx++;\r
\r
			code=est->PicoMem_vram[nametab_row+(tilex&xmask)];\r
			if (code==blank) continue;\r
\r
			if (code>>15) { // high priority tile\r
				*hcache++ = code|(dx<<16)|(trow<<27); // cache it\r
				*hcache++ = 8-(vscroll&7); // push y-offset to tilecache\r
				continue;\r
			}\r
\r
			// Get tile address/2:\r
#if INTERLACE\r
			if (est->rendstatus & PDRAW_INTERLACE)\r
				addr=(code&0x3ff)<<5;\r
			else\r
#endif\r
				addr=(code&0x7ff)<<4;\r
\r
//			pal=PicoCramHigh+((code>>9)&0x30);\r
			pal=(unsigned char)((code>>9)&0x30);\r
\r
			scroff=(8-(vscroll&7))*est->Draw2Width;\r
			switch((code>>11)&3) {\r
				case 0: zero=TileXnormYnorm(scrpos+scroff+dx,addr,pal,est); break;\r
				case 1: zero=TileXflipYnorm(scrpos+scroff+dx,addr,pal,est); break;\r
				case 2: zero=TileXnormYflip(scrpos+scroff+dx,addr,pal,est); break;\r
				case 3: zero=TileXflipYflip(scrpos+scroff+dx,addr,pal,est); break;\r
			}\r
			if(zero) blank=code; // We know this tile is blank now\r
		}\r
\r
		scrpos += est->Draw2Width*8;\r
	}\r
\r
	*hcache = 0; // terminate cache\r
}\r
\r
\r
static void DrawTilesFromCacheF(u32 *hc, struct PicoEState *est)\r
{\r
	u32 code;\r
	int addr, zero = 0, vscroll;\r
	unsigned int prevy=0xFFFFFFFF;\r
//	unsigned short *pal;\r
	unsigned char pal;\r
	short blank=-1; // The tile we know is blank\r
	unsigned char *scrpos = est->Draw2FB, *pd = 0;\r
	int scrstart = est->Draw2Start;\r
\r
	if ((~est->rendstatus & (PDRAW_BORDER_32|PDRAW_32_COLS)) == 0)\r
		scrpos += 32;\r
\r
	while((code=*hc++)) {\r
		vscroll=(*hc++ - START_ROW*8)*est->Draw2Width;\r
		if((short)code == blank) continue;\r
\r
		// y pos\r
		if(((unsigned)code>>27) != prevy) {\r
			prevy = (unsigned)code>>27;\r
			pd = scrpos + (prevy-scrstart)*est->Draw2Width*8;\r
		}\r
\r
		// Get tile address/2:\r
#if INTERLACE\r
		if (est->rendstatus & PDRAW_INTERLACE)\r
			addr=(code&0x3ff)<<5;\r
		else\r
#endif\r
			addr=(code&0x7ff)<<4;\r
//		pal=PicoCramHigh+((code>>9)&0x30);\r
		pal=(unsigned char)((code>>9)&0x30);\r
\r
		switch((code>>11)&3) {\r
			case 0: zero=TileXnormYnorm(pd+vscroll+((code>>16)&0x1ff),addr,pal,est); break;\r
			case 1: zero=TileXflipYnorm(pd+vscroll+((code>>16)&0x1ff),addr,pal,est); break;\r
			case 2: zero=TileXnormYflip(pd+vscroll+((code>>16)&0x1ff),addr,pal,est); break;\r
			case 3: zero=TileXflipYflip(pd+vscroll+((code>>16)&0x1ff),addr,pal,est); break;\r
		}\r
\r
		if(zero) blank=(short)code;\r
	}\r
}\r
\r
\r
// sx and sy are coords of virtual screen with 8pix borders on top and on left\r
static void DrawSpriteFull(u32 *sprite, struct PicoEState *est)\r
{\r
	int width=0,height=0;\r
//	unsigned short *pal=NULL;\r
	unsigned char pal;\r
	int tile,code,tdeltax,tdeltay;\r
	unsigned char *scrpos;\r
	int scrstart = est->Draw2Start;\r
	int sx, sy;\r
\r
	sy=sprite[0];\r
	height=sy>>24;\r
#if INTERLACE\r
	if (est->rendstatus & PDRAW_INTERLACE)\r
		sy = ((sy>>1)&0x1ff)-0x78;\r
	else\r
#endif\r
		sy=(sy&0x1ff)-0x78; // Y\r
	width=(height>>2)&3; height&=3;\r
	width++; height++; // Width and height in tiles\r
\r
	code=sprite[1];\r
	sx=((code>>16)&0x1ff)-0x78; // X\r
\r
	tile=code&0x7ff; // Tile number\r
	tdeltax=height; // Delta to increase tile by going right\r
	tdeltay=1;      // Delta to increase tile by going down\r
	if (code&0x1000) { tile+=tdeltax-1; tdeltay=-tdeltay; } // Flip Y\r
	if (code&0x0800) { tile+=tdeltax*(width-1); tdeltax=-tdeltax; } // Flip X\r
\r
	//delta<<=4; // Delta of address\r
//	pal=PicoCramHigh+((code>>9)&0x30); // Get palette pointer\r
	pal=(unsigned char)((code>>9)&0x30);\r
\r
	// goto first vertically visible tile\r
	sy -= scrstart*8;\r
	while(sy <= 0) { sy+=8; tile+=tdeltay; height--; }\r
\r
	scrpos = est->Draw2FB;\r
	if ((~est->rendstatus & (PDRAW_BORDER_32|PDRAW_32_COLS)) == 0)\r
		scrpos += 32;\r
	scrpos+=sy*est->Draw2Width;\r
\r
	for (; height > 0; height--, sy+=8, tile+=tdeltay)\r
	{\r
		int w = width, x=sx, t=tile, s;\r
\r
		if(sy >= END_ROW*8+8) return; // offscreen\r
\r
		for (; w; w--,x+=8,t+=tdeltax)\r
		{\r
			if(x<=0)   continue;\r
			if(x>=328) break; // Offscreen\r
\r
			t&=0x7fff; // Clip tile address\r
#if INTERLACE\r
			if (est->rendstatus & PDRAW_INTERLACE)\r
				s=5;\r
			else\r
#endif\r
				s=4;\r
			switch((code>>11)&3) {\r
				case 0: TileXnormYnorm(scrpos+x,t<<s,pal,est); break;\r
				case 1: TileXflipYnorm(scrpos+x,t<<s,pal,est); break;\r
				case 2: TileXnormYflip(scrpos+x,t<<s,pal,est); break;\r
				case 3: TileXflipYflip(scrpos+x,t<<s,pal,est); break;\r
			}\r
		}\r
\r
		scrpos+=8*est->Draw2Width;\r
	}\r
}\r
#endif\r
\r
\r
static void DrawAllSpritesFull(int prio, int maxwidth, struct PicoEState *est)\r
{\r
	struct PicoVideo *pvid=&est->Pico->video;\r
	int table=0,maskrange=0;\r
	int i,u,link=0;\r
	u32 *sprites[80]; // Sprites\r
	int y_min=START_ROW*8, y_max=END_ROW*8; // for a simple sprite masking\r
	int max_sprites = !(est->rendstatus & PDRAW_32_COLS) ? 80 : 64;\r
\r
	if (est->rendstatus & PDRAW_30_ROWS)\r
		y_min += 8, y_max += 8;\r
\r
	table=pvid->reg[5]&0x7f;\r
	if (!(est->rendstatus & PDRAW_32_COLS)) table&=0x7e; // Lowest bit 0 in 40-cell mode\r
	table<<=8; // Get sprite table address/2\r
\r
	for (i = u = 0; u < max_sprites && link < max_sprites; u++)\r
	{\r
		u32 *sprite=NULL;\r
		int code, code2, sx, sy, height;\r
\r
		sprite=(u32 *)(est->PicoMem_vram+((table+(link<<2))&0x7ffc)); // Find sprite\r
\r
		// get sprite info\r
		code = sprite[0];\r
\r
		// check if it is not hidden vertically\r
#if INTERLACE\r
		if (est->rendstatus & PDRAW_INTERLACE)\r
			sy = ((code>>1)&0x1ff)-0x80;\r
		else\r
#endif\r
			sy = (code&0x1ff)-0x80;\r
		height = (((code>>24)&3)+1)<<3;\r
		if(sy+height <= y_min || sy > y_max) goto nextsprite;\r
\r
		// masking sprite?\r
		code2=sprite[1];\r
		sx = (code2>>16)&0x1ff;\r
		if(!sx) {\r
			int to = sy+height; // sy ~ from\r
			if(maskrange) {\r
				// try to merge with previous range\r
				if((maskrange>>16)+1 >= sy && (maskrange>>16) <= to && (maskrange&0xffff) < sy) sy = (maskrange&0xffff);\r
				else if((maskrange&0xffff)-1 <= to && (maskrange&0xffff) >= sy && (maskrange>>16) > to) to = (maskrange>>16);\r
			}\r
			// support only very simple masking (top and bottom of screen)\r
			if(sy <= y_min && to+1 > y_min) y_min = to+1;\r
			else if(to >= y_max && sy-1 < y_max) y_max = sy-1;\r
			else maskrange=sy|(to<<16);\r
\r
			goto nextsprite;\r
		}\r
\r
		// priority\r
		if(((code2>>15)&1) != prio) goto nextsprite; // wrong priority\r
\r
		// check if sprite is not hidden horizontally\r
		sx -= 0x78; // Get X coordinate + 8\r
		if(sx <= -8*3 || sx >= maxwidth) goto nextsprite;\r
\r
		// sprite is good, save it's index\r
		sprites[i++]=sprite;\r
\r
		nextsprite:\r
		// Find next sprite\r
		link=(code>>16)&0x7f;\r
		if(!link) break; // End of sprites\r
	}\r
\r
	// Go through sprites backwards:\r
	for (i--; i >= 0; i--)\r
	{\r
		DrawSpriteFull(sprites[i], est);\r
	}\r
}\r
\r
#ifndef _ASM_DRAW_C\r
static void BackFillFull(unsigned char *dst, int reg7, int lwidth)\r
{\r
	unsigned int back;\r
	int i;\r
\r
	// Start with a background color:\r
	back=reg7&0x3f;\r
	back|=back<<8;\r
	back|=back<<16;\r
\r
	for (i = 0, dst += 8*lwidth; i < (END_ROW-START_ROW)*8; i++, dst += lwidth)\r
		memset32(dst+8, back, 320/4);\r
}\r
#endif\r
\r
static void DrawDisplayFull(void)\r
{\r
	struct PicoEState *est = &Pico.est;\r
	struct PicoVideo *pvid=&est->Pico->video;\r
	int win, edge=0, hvwin=0; // LSb->MSb: hwin&plane, vwin&plane, full\r
	int scrstart=START_ROW, scrend = END_ROW; // our render area\r
	int planestart, planeend; // plane A start/end when window shares display with plane A (in tile rows or columns)\r
	int winstart, winend;     // same for window\r
	int maxw, maxcolc; // max width and col cells\r
\r
	if(est->rendstatus & PDRAW_32_COLS) {\r
		maxw = 264; maxcolc = 32;\r
	} else {\r
		maxw = 328; maxcolc = 40;\r
	}\r
	if(est->rendstatus & PDRAW_30_ROWS) {\r
		// In 240 line mode, the top and bottom 8 lines are omitted\r
		// since this renderer always renders 224 lines\r
		scrstart ++, scrend ++;\r
	}\r
	est->Draw2Start = scrstart;\r
\r
	planestart = scrstart, planeend = scrend;\r
	winstart = scrstart, winend = scrend;\r
\r
	// horizontal window?\r
	if ((win=pvid->reg[0x12]))\r
	{\r
		hvwin=1; // hwindow shares display with plane A\r
		edge=win&0x1f;\r
		if(win == 0x80) {\r
			// fullscreen window\r
			hvwin=4;\r
		} else if(win < 0x80) {\r
			// window on the top\r
			     if(edge <= scrstart) hvwin=0; // window not visible in our drawing region\r
			else if(edge >= scrend)   hvwin=4;\r
			else planestart = winend = edge;\r
		} else if(win > 0x80) {\r
			// window at the bottom\r
			if(edge >= scrend) hvwin=0;\r
			else planeend = winstart = edge;\r
		}\r
	}\r
\r
	// check for vertical window, but only if win is not fullscreen\r
	if (hvwin != 4)\r
	{\r
		win=pvid->reg[0x11];\r
		edge=win&0x1f;\r
		if (win&0x80) {\r
			if(!edge) hvwin=4;\r
			else if(edge < (maxcolc>>1)) {\r
				// window is on the right\r
				hvwin|=2;\r
				planeend|=edge<<17;\r
				winstart|=edge<<17;\r
				winend|=maxcolc<<16;\r
			}\r
		} else {\r
			if(edge >= (maxcolc>>1)) hvwin=4;\r
			else if(edge) {\r
				// window is on the left\r
				hvwin|=2;\r
				winend|=edge<<17;\r
				planestart|=edge<<17;\r
				planeend|=maxcolc<<16;\r
			}\r
		}\r
	}\r
\r
	if (hvwin==1) { winend|=maxcolc<<16; planeend|=maxcolc<<16; }\r
\r
	HighCache2A[0] = HighCache2B[0] = 0;\r
	if (!(pvid->debug_p & PVD_KILL_B))\r
		DrawLayerFull(1, HighCache2B, scrstart, (maxcolc<<16)|scrend, est);\r
	if (!(pvid->debug_p & PVD_KILL_A)) switch (hvwin)\r
	{\r
		case 4:\r
		// fullscreen window\r
		DrawWindowFull(scrstart, (maxcolc<<16)|scrend, 0, est);\r
		break;\r
\r
		case 3:\r
		// we have plane A and both v and h windows\r
		DrawLayerFull(0, HighCache2A, planestart, planeend, est);\r
		DrawWindowFull( winstart&~0xff0000, (winend&~0xff0000)|(maxcolc<<16), 0, est); // h\r
		DrawWindowFull((winstart&~0xff)|scrstart, (winend&~0xff)|scrend, 0, est);    // v\r
		break;\r
\r
		case 2:\r
		case 1:\r
		// both window and plane A visible, window is vertical XOR horizontal\r
		DrawLayerFull(0, HighCache2A, planestart, planeend, est);\r
		DrawWindowFull(winstart, winend, 0, est);\r
		break;\r
\r
		default:\r
		// fullscreen plane A\r
		DrawLayerFull(0, HighCache2A, scrstart, (maxcolc<<16)|scrend, est);\r
		break;\r
	}\r
	if (!(pvid->debug_p & PVD_KILL_S_LO))\r
		DrawAllSpritesFull(0, maxw, est);\r
\r
	if (HighCache2B[0]) DrawTilesFromCacheF(HighCache2B, est);\r
	if (HighCache2A[0]) DrawTilesFromCacheF(HighCache2A, est);\r
	if (!(pvid->debug_p & PVD_KILL_A)) switch (hvwin)\r
	{\r
		case 4:\r
		// fullscreen window\r
		DrawWindowFull(scrstart, (maxcolc<<16)|scrend, 1, est);\r
		break;\r
\r
		case 3:\r
		// we have plane A and both v and h windows\r
		DrawWindowFull( winstart&~0xff0000, (winend&~0xff0000)|(maxcolc<<16), 1, est); // h\r
		DrawWindowFull((winstart&~0xff)|scrstart, (winend&~0xff)|scrend, 1, est);    // v\r
		break;\r
\r
		case 2:\r
		case 1:\r
		// both window and plane A visible, window is vertical XOR horizontal\r
		DrawWindowFull(winstart, winend, 1, est);\r
		break;\r
	}\r
	if (!(pvid->debug_p & PVD_KILL_S_HI))\r
		DrawAllSpritesFull(1, maxw, est);\r
}\r
\r
\r
PICO_INTERNAL void PicoFrameFull(void)\r
{\r
	pprof_start(draw);\r
\r
	// prepare cram?\r
	if (PicoPrepareCram) PicoPrepareCram();\r
\r
	// Draw screen:\r
	BackFillFull(Pico.est.Draw2FB, Pico.video.reg[7], Pico.est.Draw2Width);\r
	if (Pico.video.reg[1] & 0x40)\r
		DrawDisplayFull();\r
\r
	// clear top and bottom 8 lines in 240 mode, since draw2 only does 224\r
	if (Pico.est.rendstatus & PDRAW_30_ROWS) {\r
		unsigned char *pd = Pico.est.Draw2FB;\r
		int i;\r
\r
		for (i = 8; i > 0; i--, pd += Pico.est.Draw2Width)\r
			memset32((int *)pd, 0xe0e0e0e0, 328/4);\r
		pd += Pico.est.Draw2Width*(END_ROW-START_ROW)*8;\r
		for (i = 8; i > 0; i--, pd += Pico.est.Draw2Width)\r
			memset32((int *)pd, 0xe0e0e0e0, 328/4);\r
	}\r
\r
	pprof_end(draw);\r
}\r
\r
void PicoDraw2SetOutBuf(void *dest, int incr)\r
{\r
	if (dest) {\r
		Pico.est.Draw2FB = dest;\r
		Pico.est.Draw2Width = incr;\r
	} else {\r
		Pico.est.Draw2FB = PicoDraw2FB_;\r
		Pico.est.Draw2Width = LINE_WIDTH;\r
	}\r
}\r
\r
void PicoDraw2Init(void)\r
{\r
	PicoDraw2SetOutBuf(NULL, 0);\r
}\r