vdp.c

#include <defines.h>

#include <stdio.h>
#include <stdlib.h>


#include "vdp.h"
#include "mos-interface.h"

// Generic functions

void write16bit(UINT16 w)
{
	putch(w & 0xFF); // write LSB
	putch(w >> 8);	 // write MSB	
}

void write32bit(UINT32 l)
{
	UINT32 temp = l;
	
	putch(temp & 0xFF); // write LSB
	temp = temp >> 8;
	putch(temp & 0xFF);
	temp = temp >> 8;
	putch(temp & 0xFF);
	temp = temp >> 8;
	putch(temp & 0xFF);
	return;	
}

void vdp_mode(unsigned char mode)
{
    putch(22);
    putch(mode);
}

void vdp_getMode(void) {
	putch(23);
	putch(0);
	putch(0x86);
}

// JH new 1.04 RC2
void vdp_switchBuffers() {
	// VDU 23, 0, &C3
	putch(23);
	putch(0);
	putch(0xC3);
}

void vdp_setPaletteColor(UINT8 index, UINT8 color, UINT8 r, UINT8 g, UINT8 b) {
	putch(0x13); // VDU palette
	putch(index);
	putch(color); // 255 - set R/G/B colors, or <80 color lookup table
	putch(r);
	putch(g);
	putch(b);
}

// Text functions
void vdp_cls()
{
    putch(12);
}

void vdp_cursorHome()
{
    putch(30);
}

void vdp_cursorUp()
{
    putch(11);
}

void vdp_cursorGoto(unsigned char x, unsigned char y)
{
    putch(31); // TAB
    putch(x);
    putch(y);
}

void vdp_fgcolour(unsigned char colorindex) {
	putch(17); // COLOUR
	putch(colorindex);	
}

void vdp_bgcolour(unsigned char colorindex) {
	putch(17); // COLOUR
	putch(colorindex | 0x80);	
}

// Redefine ASCII character number c with 8 bytes at data pointer
// @param c				The ASCII character to redefine
// @param data		Pointer to 8 bytes of data to use to redefine the character
void vdp_redefineChar(unsigned char c, UINT8 *data)
{
	// VDU 23, c, n1, n2, n3, n4, n5, n6, n7, n8: Redefine a display character
	UINT8 i;
	putch(23);
	putch(c);
	for (i = 0; i < 8; i++)
		putch(data[i]);
}


//
// Graphics functions
//

// JH - Enable/disable BBC-sty;e logical coords
void vdp_setLogicalCoords(unsigned char n)
{
	// VDU 23, 0, &C0, n
	putch(23);	 	// vdu_sys
	putch(0);			// vdu_sys_video
	putch(0xC0);	// logical coords mode VDP_LOGICALCOORDS
	putch(n);			// mode (0 = off, >0 = on)
}

void vdp_clearGraphics()
{
	// VDU 16   (CLG)
    putch(16);    
}

// JH 2023-10-23
void vdp_graphicsViewport(unsigned int left, unsigned int bottom, unsigned int right, unsigned int top) {
	// VDU 24, left, bottom, right, top (words) 
	putch(24);			// 0x18
	write16bit(left);
	write16bit(bottom);
	write16bit(right);
	write16bit(top);
}

// JH 2023-10-23
void vdp_resetViewports() {
	// VDU 26
	putch(26);		// 0x1A
}

void vdp_plotColour(unsigned char colorindex)
{
	putch(18); // GCOL
    putch(1);
	putch(colorindex);
}

// internal function
void vdp_plot(unsigned char mode, unsigned int x, unsigned int y)
{
    putch(25); // PLOT
    putch(mode);
    putch(x & 0xFF);
    putch(x >> 8);
    putch(y & 0xFF);
    putch(y >> 8);
}

void vdp_plotMoveTo(unsigned int x, unsigned int y)
{
	vdp_plot(0x04,x,y);
}

void vdp_plotLineTo(unsigned int x, unsigned int y)
{
	vdp_plot(0x05,x,y);
}

void vdp_plotPoint(unsigned int x, unsigned int y)
{
	//vdp_plot(0x40,x,y);
	vdp_plot(0x45,x,y);
}

void vdp_plotTriangle(unsigned int x, unsigned int y)
{
	vdp_plot(0x50,x,y);
}

void vdp_plotCircleRadius(unsigned int r)
{
	//vdp_plot(0x90,r,0);
	vdp_plot(0x91,r,0);
}

void vdp_plotCircleCircumference(unsigned int x, unsigned int y)
{
	vdp_plot(0x95,x,y);
}

// JH 2023-10-23
void vdp_plotFilledRectangle(unsigned int x, unsigned int y)
{
	vdp_plot(0x61,x,y);
}

void vdp_plotSetOrigin(unsigned int x, unsigned int y)
{
    putch(29); //Graphics ORIGIN
    putch(x & 0xF);
    putch(x >> 8);
    putch(y & 0xF);
    putch(y >> 8);
}

// Bitmap VDP functions
void vdp_bitmapSelect(UINT8 id)
{
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(0);  // select command
	putch(id); // bitmap_id
	return;	
}

void vdp_bitmapSendDataSelected(UINT16 width, UINT16 height, UINT32 *data)
{
	UINT16 n;
	
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(1);  // send data to selected bitmap
	
	write16bit(width);
	write16bit(height);
	
	for(n = 0; n < (width*height); n++)
	{
		write32bit(data[n]);
		//delayms(1);
	}
	return;		
}

void vdp_bitmapSendData(UINT8 id, UINT16 width, UINT16 height, UINT32 *data)
{
	vdp_bitmapSelect(id);
	vdp_bitmapSendDataSelected(width, height, data);
	return;	
}

// Send 16-colour paletted data to the VDP
// Palette is RGB8
void vdp_bitmapSendData16(UINT8 id, UINT16 width, UINT16 height, UINT8 *data, UINT32 *palette)
{
	UINT16 n, count;
	UINT32 ARGB;
	//UINT24 colour;
	UINT8 palIndex;

	vdp_bitmapSelect(id);

	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(1);  // send data to selected bitmap
	
	write16bit(width);
	write16bit(height);
	
	count = (width * height / 2);				// 1 byte = 2 pixels
	for(n = 0; n < count; n++)
		{
		palIndex = data[n] >> 4;
		ARGB = palette[palIndex];
		write32bit(ARGB);
		palIndex = data[n] & 0x0F;
		ARGB = palette[palIndex];
		write32bit(ARGB);
		//delayms(1);
		}

	//for(n = 0; n < count; n++)
	//	{
	//	palIndex = data[n] >> 4;
	//	ARGB = palette[palIndex];
	//	printf("%X ", ARGB);
	//	//printf("%2X ", palIndex);
	//	palIndex = data[n] & 0x0F;
	//	ARGB = palette[palIndex];
	//	printf("%X \r\n", ARGB);
	//	//printf("%d  ", palIndex);
	//	//delayms(1);
	//	}

	return;		
}



void vdp_bitmapDrawSelected(UINT16 x, UINT16 y)
{
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(3);  // draw selected bitmap
	
	write16bit(x);
	write16bit(y);
	
	return;
}

void vdp_bitmapDraw(UINT8 id, UINT16 x, UINT16 y)
{
	vdp_bitmapSelect(id);
	vdp_bitmapDrawSelected(x,y);
	return;	
}

void vdp_bitmapCreateSolidColorSelected(UINT16 width, UINT16 height, UINT32 abgr)
{
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(2);  // define in single color command
	
	write16bit(width);
	write16bit(height);
	write32bit(abgr);
	return;		
}

void vdp_bitmapCreateSolidColor(UINT8 id, UINT16 width, UINT16 height, UINT32 abgr)
{
	vdp_bitmapSelect(id);
	vdp_bitmapCreateSolidColorSelected(width, height, abgr);
	return;	
}

// Sprite VDP functions
void vdp_spriteSelect(UINT8 id)
{
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(4);  // select sprite
	putch(id);
	return;			
}

void vdp_spriteClearFramesSelected(void)
{
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(5);  // clear frames
	return;				
}

void vdp_spriteClearFrames(UINT8 bitmapid)
{
	vdp_spriteSelect(bitmapid);
	vdp_spriteClearFramesSelected();
	return;				
}

void vdp_spriteAddFrameSelected(UINT8 bitmapid)
{
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(6);  // add frame
	putch(bitmapid);
	return;	
}

void vdp_spriteAddFrame(UINT8 id, UINT8 bitmapid)
{
	vdp_spriteSelect(id);
	vdp_spriteAddFrameSelected(bitmapid);
	return;	
}

void vdp_spriteNextFrameSelected(void)
{
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(8);  // next frame
	return;			
}

void vdp_spriteNextFrame(UINT8 id)
{
	vdp_spriteSelect(id);
	vdp_spriteNextFrameSelected();
	return;
}

void vdp_spritePreviousFrameSelected(void)
{
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(9); // previous frame
	return;	
}

void vdp_spritePreviousFrame(UINT8 id)
{
	vdp_spriteSelect(id);
	vdp_spritePreviousFrameSelected();
	return;
}

void vdp_spriteSetFrameSelected(UINT8 framenumber)
{
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(10); // set current frame
	putch(framenumber);
	return;	
}

void vdp_spriteSetFrame(UINT8 id, UINT8 framenumber)
{
	vdp_spriteSelect(id);
	vdp_spriteSetFrameSelected(framenumber);
	return;
}

void vdp_spriteShowSelected(void)
{
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(11); // show sprite
	return;			
}

void vdp_spriteShow(UINT8 id)
{
	vdp_spriteSelect(id);
	vdp_spriteShowSelected();
	return;
}

void vdp_spriteHideSelected(void)
{
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(12); // hide sprite
	return;		
}

void vdp_spriteHide(UINT8 id)
{
	vdp_spriteSelect(id);
	vdp_spriteHideSelected();
	return;
}

void vdp_spriteMoveToSelected(UINT16 x, UINT16 y)
{
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(13); // move to
	write16bit(x);
	write16bit(y);
	return;	
}

void vdp_spriteMoveTo(UINT8 id, UINT16 x, UINT16 y)
{
	vdp_spriteSelect(id);
	vdp_spriteMoveToSelected(x,y);
	return;
}

void vdp_spriteMoveBySelected(UINT16 x, UINT16 y)
{
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(14); // move by
	write16bit(x);
	write16bit(y);
	return;	
}

void vdp_spriteMoveBy(UINT8 id, UINT16 x, UINT16 y)
{
	vdp_spriteSelect(id);
	vdp_spriteMoveBySelected(x,y);
	return;
}

void vdp_spriteActivateTotal(UINT8 number)
{
	putch(23); // vdu_sys
	putch(27); // sprite command
	putch(7);  // set number of sprites
	putch(number);
	return;	
}

void vdp_spriteRefresh(void)
{
	putch(23);	// vdu_sys
	putch(27);	// sprite command
	putch(15);	// refresh all sprites
	return;
}

UINT8 vdp_cursorGetXpos(void)
{
	unsigned int delay;
	
	putch(23);	// VDP command
	putch(0);	// VDP command
	putch(0x82);	// Request cursor position
	
	delay = 255;
	while(delay--);
	return(getsysvar_cursorX());

}

UINT8 vdp_cursorGetYpos(void)
{
	unsigned int delay;
	
	putch(23);	// VDP command
	putch(0);	// VDP command
	putch(0x82);	// Request cursor position
	
	delay = 255;
	while(delay--);
	return(getsysvar_cursorY());
}

char vdp_asciiCodeAt(unsigned char x, unsigned char y)
{
	unsigned int delay;
	
	putch(23);	// VDP command
	putch(0);	// VDP command
	putch(0x83);	// Request ascii code at position (x,y)
	putch(x);
	putch(0);
	putch(y);
	putch(0);
	
	delay = 64000;
	while(delay--);
	return(getsysvar_scrchar());
}

void  vdp_setpagedMode(bool mode) {
	if(mode) putch(0x0E);
	else putch(0x0F);
}

void vdp_cursorDisable(void)
{
	putch(23);
	putch(1);
	putch(0);
}

void vdp_cursorEnable(void)
{
	putch(23);
	putch(1);
	putch(1);
}

void vdp_scroll(unsigned char extent, unsigned char direction, unsigned char speed)
{
	putch(23);
	putch(7);	// scroll
	putch(extent);
	putch(direction);
	putch(speed);
}