Home Page Forums MAME MAME Playing with the Atari 2600 POP

gamelist = [[Adventure
Target Fun
Asteroids
Backgammon
Basketball
Bowling
Breakaway
Canyon Bomber
Poker Plus
Circus
Tank Plus
Dodger Cars
Football
Golf
Hangman
Baseball
Cannonman
Maze Mania
Missile Command
Night Driver
Othello
Gunslinger
Soccer
Darediver
Maze
Space Invaders
Speedway II
Superman
Tic-Tac-Toe
Checkers
Chess
Pong Sports
Pinball
Warlords
Berzerk
Haunted House
Math Grand Prix
Defender
Yar's Revenge
Pac-Man
Super Breakout
Demons To Diamonds
Submarine Commander
Stellar Track
Steeple Chase]]

linecount=0
for line in gamelist:gmatch("([^\n]*)\n?") do
  linecount=linecount+1
  print(line,linecount)
end


function opentag(t,i) return "<"..t.." "..i..">" end
function closetag(t) return "</"..t..">" end
function tag(t,i) return '<'..t.." "..i.."/>" end
function attr(a,v) return a.."="..'"'..v..'" ' end


function colorrgb(r,g,b) return tag("color",(attr("red",r)..attr("green",g)..attr("blue",b))) end

color = {}
color[2] = colorrgb(.839,.408,.275)
color[3] = colorrgb(.659,.384,.290)
color[0] = colorrgb(.875,.557,.315)
color[1] = colorrgb(.906,.510,.278)


print()
print([[<?xml version="1.0"?>
<!--
license:CC0-1.0
copyright-holders:
-->]])

print(opentag("mamelayout",attr("version",2)))

for i=0,3 do 
print (opentag("element",attr("name","rectcolor"..i)..attr("defstate","0")))
print (opentag("rect",attr("state","0"))..color[i]..closetag("rect"))
print (closetag("element"))
end

function textelement(n,s) return opentag("element",attr("name",n))..opentag("text",attr("string",s))..colorrgb(1.0,1.0,1.0)..closetag("text")..closetag("element") end

linecount=0
for line in gamelist:gmatch("([^\n]*)\n?") do
  linecount=linecount+1
--  print(line,linecount)
  game=line
  gamecount=linecount
  print(textelement("textgame"..gamecount,game.."  "..gamecount))
end

function elementxywh(r,x,y,w,h) return opentag("element",attr("ref",r))..tag("bounds",attr("x",x)..attr("y",y)..attr("width",w)..attr("height",h))..closetag("element") end

print(opentag("view",attr("name","Game List Panel")))

--<screen index="0"><bounds x="0" y="-500" width="625" height="500" /></screen>

print(opentag("screen",attr("index",0))..tag("bounds",attr("x",0)..attr("y",-500)..attr("width",625)..attr("height",500))..closetag("screen"))


x0 = 0
xwidth = 65
xgap = 5
y0 = 0
yheight=20
ygap = 2
ymax = (yheight+ygap) * (5-1)

x=x0
y=y0

for g=1,gamecount do
print((elementxywh("rectcolor"..g%4,x,y,xwidth,yheight)))
print((elementxywh("textgame"..g,x,y,xwidth,yheight)))
y=y+yheight+ygap
if y>ymax then
  y=y0
  x=x+xwidth+xgap
end
end

print(closetag("view"))
print(closetag("mamelayout"))

function mypointercb(type,id,devid,hpos,vpos,mask,clickcount) 
cvb=manager.machine.render.targets:at(1).current_view.bounds 
if clickcount > 0 then print(hpos,vpos,"COORDS "..(cvb.x1-cvb.x0) * hpos + cvb.x0..","..(cvb.y1-cvb.y0)*vpos+cvb.y0) end end

manager.machine.render.targets:at(1).current_view:set_pointer_updated_callback(mypointercb)

function drawframe() 
x=x or 0 y = y or 0 
manager.machine.render.ui_container:draw_box(0,0,.3,.1,0xffffffff,0x80ff0000)
manager.machine.render.ui_container:draw_text(0,0,"Coords = "..string.format("%3.2f",x)..","..string.format("%3.2f",y))
end

emu.register_frame_done(drawframe)



function mypointercb(type,id,devid,hpos,vpos,mask,clickcount)
 cvb=manager.machine.render.targets:at(1).current_view.bounds
 x,y=(cvb.x1-cvb.x0) * hpos + cvb.x0,(cvb.y1-cvb.y0)*vpos+cvb.y0 
end

manager.machine.render.targets:at(1).current_view:set_pointer_updated_callback(mypointercb)

/*
	10 -- Compumate [CM]

	there are 4 4K banks selectable at $1000 - $1FFFF
	bankswitching is done though the controller ports
	INPT0: D7 = CTRL key input (0 on startup / 1 = key pressed)
	INPT1: D7 = always HIGH input (tested at startup)
	INPT2: D7 = always HIGH input (tested at startup)
	INPT3: D7 = SHIFT key input (0 on startup / 1 = key pressed)
	INPT4: D7 = keyboard row 1 input (0 = key pressed)
	INPT5: D7 = keyboard row 3 input (0 = key pressed)
	SWCHA: D7 = tape recorder I/O ?
	       D6 = 1 -> increase key collumn (0 to 9)
	       D5 = 1 -> reset key collumn to 0 (if D4 = 0)
	       D5 = 0 -> enable RAM writing (if D4 = 1)
	       D4 = 1 -> map 2K of RAM at $1800 - $1fff
	       D3 = keyboard row 4 input (0 = key pressed)
	       D2 = keyboard row 2 input (0 = key pressed)
	       D1 = bank select high bit
	       D0 = bank select low bit
	
	keyboard collumn numbering:
	collumn 0 = 7 U J M
	collumn 1 = 6 Y H N
	collumn 2 = 8 I K ,
	collumn 3 = 2 W S X
	collumn 4 = 3 E D C
	collumn 5 = 0 P ENTER SPACE
	collumn 6 = 9 O L .
	collumn 7 = 5 T G B
	collumn 8 = 1 Q A Z
	collumn 9 = 4 R F V
*/

[MAME]> print(string.format("%x",emu.item(manager.machine.devices[":tia_video"].items["0/COLUPF"]):read()))
e
[MAME]> print(string.format("%x",emu.item(manager.machine.devices[":tia_video"].items["0/COLUPF"]):read()))
36
[MAME]> print(string.format("%x",emu.item(manager.machine.devices[":tia_video"].items["0/COLUPF"]):read()))
86
[MAME]> print(string.format("%x",emu.item(manager.machine.devices[":tia_video"].items["0/COLUPF"]):read()))
c8

static int compumate_output_bit(int16_t *buffer, int sample_pos, bool bit)
{
	int samples = 0;
	int samples_per[] = {8, 5};  // 10,5 works, 8,5 is close to actual timing (samples per half cycle)
	int cycles_per[] = {1, 2};   // compumate has 1 cycle for a 0 bit, 2 cycles for a 1 bit

	for (int i = 0; i < cycles_per[bit]; i++)
	{
		samples += compumate_put_samples(buffer, sample_pos + samples, samples_per[bit], WAVEENTRY_LOW);
		samples += compumate_put_samples(buffer, sample_pos + samples, samples_per[bit], WAVEENTRY_HIGH);
	}
	return samples;
}

static int compumate_output_byte(int16_t *buffer, int sample_pos, uint8_t byte)
{
	int samples = 0;
	uint8_t i;

	samples += compumate_output_bit (buffer, sample_pos + samples, 0);  // 1 start bit of zero

	/* data */
	for (i = 0; i<8; i++)
		samples += compumate_output_bit (buffer, sample_pos + samples, ((byte >> i) & 1));

	for (i = 0; i<4; i++)
		samples += compumate_output_bit (buffer, sample_pos + samples, 1);  // 4 stop bits

	return samples;
}

static int compumate_bin_handle_cassette(int16_t *buffer, const uint8_t *bytes)
{
	uint32_t sample_count = 0;

	/* start */
	for (int i = 0; i < HEADER_LENGTH; i++)  // roughly 900 bytes of 0xff as header for 10 seconds (can be much much less)
		sample_count += compumate_output_byte(buffer, sample_count, 0xff);

	/* data */
	for (int i = 0; i < compumate_image_size; i++)
	{
		sample_count += compumate_output_byte(buffer, sample_count, bytes[i]);
	}	

	if (buffer)
	{
		FILE* fp=fopen("RAWDATA","wb");
		if(fp)
		{	
			fwrite(buffer,sample_count*2,1,fp);
			fclose(fp);
		}
	}
	return sample_count;
}

      300  30 31 32 33 34 35 36 37 38 39 3A 3B 2C 2D 2E 2F   0123456789:;,-./
      310  1B 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F   .ABCDEFGHIJKLMNO
      320  50 51 52 53 54 55 56 57 58 59 5A 20 0D 0A 7F 00   PQRSTUVWXYZ ....
      330  08 B8 2F F0 43 04 A0 FE B8 32 A0 83 B8 2F F0 83   .8/pC. ~82 .8/p.