Home Page Forums MAME MAME Fidelity Printer

virtual void input_data4(int state) override { if (state) m_row |= 0x01; else m_row &= ~0x01; m_259->write_abcd(m_row, 1);update(); }
virtual void input_data5(int state) override { if (state) m_row |= 0x02; else m_row &= ~0x02; m_259->write_abcd(m_row, 1);update(); }
virtual void input_data6(int state) override { if (state) m_row |= 0x04; else m_row &= ~0x04; m_259->write_abcd(m_row, 1);update(); } 

dim a(16384)

graphsize 800,1600
clg
openb "alphacom_vp42_vic42_dump.bin"
xpos = 0
ypos = 0
off=0
for j = 0 to 2047
b = readbyte
a[j+2048]=b
if xpos = 0 then text xpos,ypos - 3,tohex(j)
for i = 0 to 7
  if b & (2^(7-i)) then plot xpos+60 , ypos + (i)
next i
if (j % 16)=0 then plot xpos+60, ypos + 10
if (j % 32)=0 then plot xpos+60, ypos + 12:plot xpos+60,ypos+11
if (j % 256)=0 then plot xpos+60, ypos + 13:plot xpos+60,ypos+14
xpos = xpos + 1
if xpos >= 512 then xpos = 0:ypos=ypos + 16:print j
next j

adr={ 0xa7b, 0xac1, 0xb60, 0xbff, 0xc9e, 0xd3d, 0xddc}
for i=0 to adr[?]-1
	print i,adr[i]
	if i>0 then print adr[i]-adr[i-1]
next i

xstart = 100
xpos=100
ypos=100

for c=0 to 159
for l=0 to 6
	if c>=70 and c<=159 and (l=0 or l=6) then call none() else call drawbyteh(a[adr[l]+c],xpos,ypos+l)
next l
xpos=xpos + 10
if xpos >= xstart + 10 * 16 then xpos = xstart : ypos=ypos+20
next c


subroutine none()
end subroutine

subroutine drawbyteh(b,x,y)
  for i=0 to 7
  if b & (2^(7-i)) then plot x+i,y
  next i
end subroutine