Ef9345DisplayEditorX2_201703262126.sdlbas

chcur=65:ikcur=14:ppcur=1
zoommode=2

dim paleta$[16]
dim z$[512]:for i=0 to 511:z$[i]="55aa55aa55aa55aa55aa":next

paleta$[00]="0x000000":paleta$[01]="0xFF0000":paleta$[02]="0x00FF00":paleta$[03]="0xFFFF00"
paleta$[04]="0x0000FF":paleta$[05]="0xFF00FF":paleta$[06]="0x00FFFF":paleta$[07]="0xFFFFFF"
paleta$[08]="0x808080":paleta$[09]="0x808080":paleta$[10]="0x808080":paleta$[11]="0x808080"
paleta$[12]="0x808080":paleta$[13]="0x808080":paleta$[14]="0x808080":paleta$[15]="0x808080"

z$[  0]="00384440201000100000":z$[  1]="0010280038447c440000":z$[  2]="0008103c2030203c0000":z$[  3]="000814103810243c0000"
z$[  4]="001028344c444c340000":z$[  5]="00384440404044381020":z$[  6]="0028003c2030203c0000":z$[  7]="0020180038447c440000"
z$[  8]="00201800444444380000":z$[  9]="0010083c2030203c0000":z$[ 10]="003c50505850503c0000":z$[ 11]="0008143c2030203c0000"
z$[ 12]="000010207f2010000000":z$[ 13]="00102800301010380000":z$[ 14]="00000804fe0408000000":z$[ 15]="10101010101054381000"
z$[ 16]="00182418000000000000":z$[ 17]="0010107c1010007c0000":z$[ 18]="00081038447c40380000":z$[ 19]="00280038447c40380000"
z$[ 20]="00280030101010380000":z$[ 21]="00000038404040381020":z$[ 22]="0010280044444c340000":z$[ 23]="002010344c444c340000"
z$[ 24]="000010007c0010000000":z$[ 25]="00201038447c40380000":z$[ 26]="0000003c525e503e0000":z$[ 27]="00102838447c40380000"
z$[ 28]="0040c040444c143e0400":z$[ 29]="0040c0404c5204081e00":z$[ 30]="00e0204024cc143e0400":z$[ 31]="00102800384444380000"
z$[ 32]="00000000000000000000":z$[ 33]="00101010101000100000":z$[ 34]="00282828000000000000":z$[ 35]="0028287c287c28280000"
z$[ 36]="00103850381454381000":z$[ 37]="0060640810204c0c0000":z$[ 38]="00205050205448340000":z$[ 39]="00101020000000000000"
z$[ 40]="00081020202010080000":z$[ 41]="00201008080810200000":z$[ 42]="00105438103854100000":z$[ 43]="000010107c1010000000"
z$[ 44]="00000000000020204000":z$[ 45]="00000000003c00000000":z$[ 46]="00000000000000200000":z$[ 47]="01020204081020204080"
z$[ 48]="00102844444428100000":z$[ 49]="00103010101010100000":z$[ 50]="003844041820407c0000":z$[ 51]="007c0408180444380000"
z$[ 52]="00081828487c08080000":z$[ 53]="007c4078040444380000":z$[ 54]="00182040784444380000":z$[ 55]="007c0408102020200000"
z$[ 56]="00384444384444380000":z$[ 57]="003844443c0404380000":z$[ 58]="00000020000000200000":z$[ 59]="00000020000020204000"
z$[ 60]="00040810201008040000":z$[ 61]="0000007c007c00000000":z$[ 62]="00402010081020400000":z$[ 63]="00384404081000100000"
z$[ 64]="0038445c545c40380000":z$[ 65]="00384444447c44440000":z$[ 66]="00784444784444780000":z$[ 67]="00384440404044380000"
z$[ 68]="00784444444444780000":z$[ 69]="007c40407040407c0000":z$[ 70]="007c4040704040400000":z$[ 71]="00384440404c443c0000"
z$[ 72]="004444447c4444440000":z$[ 73]="00381010101010380000":z$[ 74]="001c0808080848300000":z$[ 75]="00444850605048440000"
z$[ 76]="004040404040407c0000":z$[ 77]="00446c54444444440000":z$[ 78]="00444464544c44440000":z$[ 79]="00384444444444380000"
z$[ 80]="00784444784040400000":z$[ 81]="00384444445448340000":z$[ 82]="00784444785048440000":z$[ 83]="00384440380444380000"
z$[ 84]="007c1010101010100000":z$[ 85]="00444444444444380000":z$[ 86]="00444444282810100000":z$[ 87]="00444444545454280000"
z$[ 88]="00444428102844440000":z$[ 89]="00444428101010100000":z$[ 90]="007c04081020407c0000":z$[ 91]="001c10101010101c0000"
z$[ 92]="80404020100804040201":z$[ 93]="00380808080808380000":z$[ 94]="00103854101010101000":z$[ 95]="000000000000000000ff"
z$[ 96]="00000000ff0000000000":z$[ 97]="000000344c444c340000":z$[ 98]="00404078444444780000":z$[ 99]="00000038404040380000"
z$[100]="0004043c4444443c0000":z$[101]="00000038447c40380000":z$[102]="00182420702020200000":z$[103]="0000003c44443c042418"
z$[104]="00404058644444440000":z$[105]="00100030101010380000":z$[106]="00080018080808084830":z$[107]="00202024283028240000"
z$[108]="00301010101010380000":z$[109]="00000068545454540000":z$[110]="00000058644444440000":z$[111]="00000038444444380000"
z$[112]="00000078444444784040":z$[113]="0000003c4444443c0404":z$[114]="00000058644040400000":z$[115]="00000038403804780000"
z$[116]="00202038202020180000":z$[117]="0000004444444c340000":z$[118]="00000044442828100000":z$[119]="00000044445454280000"
z$[120]="00000044281028440000":z$[121]="00000044444c34044438":z$[122]="0000007c0810207c0000":z$[123]="80808080808080808080"
z$[124]="10101010101010101010":z$[125]="01010101010101010101":z$[126]="ff000000000000000000":z$[127]="ffffffffffffffffffff"

z$[128+128]="00000000000000000000":z$[129+128]="70700000000000000000":z$[130+128]="07070000000000000000":z$[131+128]="77770000000000000000"
z$[132+128]="00000070707000000000":z$[133+128]="70700070707000000000":z$[134+128]="07070070707000000000":z$[135+128]="77770070707000000000"
z$[136+128]="00000007070700000000":z$[137+128]="70700007070700000000":z$[138+128]="07070007070700000000":z$[139+128]="77770007070700000000"
z$[140+128]="00000077777700000000":z$[141+128]="70700077777700000000":z$[142+128]="07070077777700000000":z$[143+128]="77770077777700000000"
z$[144+128]="00000000000000707000":z$[145+128]="70700000000000707000":z$[146+128]="07070000000000707000":z$[147+128]="77770000000000707000"
z$[148+128]="00000070707000707000":z$[149+128]="70700070707000707000":z$[150+128]="07070070707000707000":z$[151+128]="77770070707000707000"
z$[152+128]="00000007070700707000":z$[153+128]="70700007070700707000":z$[154+128]="07070007070700707000":z$[155+128]="77770007070700707000"
z$[156+128]="00000077777700707000":z$[157+128]="70700077777700707000":z$[158+128]="07070077777700707000":z$[159+128]="77770077777700707000"
z$[160+128]="00000000000000070700":z$[161+128]="70700000000000070700":z$[162+128]="07070000000000070700":z$[163+128]="77770000000000070700"
z$[164+128]="00000070707000070700":z$[165+128]="70700070707000070700":z$[166+128]="07070070707000070700":z$[167+128]="77770070707000070700"
z$[168+128]="00000007070700070700":z$[169+128]="70700007070700070700":z$[170+128]="07070007070700070700":z$[171+128]="77770007070700070700"
z$[172+128]="00000077777700070700":z$[173+128]="70700077777700070700":z$[174+128]="07070077777700070700":z$[175+128]="77770077777700070700"
z$[176+128]="00000000000000777700":z$[177+128]="70700000000000777700":z$[178+128]="07070000000000777700":z$[179+128]="77770000000000777700"
z$[180+128]="00000070707000777700":z$[181+128]="70700070707000777700":z$[182+128]="07070070707000777700":z$[183+128]="77770070707000777700"
z$[184+128]="00000007070700777700":z$[185+128]="70700007070700777700":z$[186+128]="07070007070700777700":z$[187+128]="77770007070700777700"
z$[188+128]="00000077777700777700":z$[189+128]="70700077777700777700":z$[190+128]="07070077777700777700":z$[191+128]="77770077777700777700"
z$[192+128]="00000000000000000000":z$[193+128]="f0f0f000000000000000":z$[194+128]="0f0f0f00000000000000":z$[195+128]="ffffff00000000000000"
z$[196+128]="000000f0f0f0f0000000":z$[197+128]="f0f0f0f0f0f0f0000000":z$[198+128]="0f0f0ff0f0f0f0000000":z$[199+128]="fffffff0f0f0f0000000"
z$[200+128]="0000000f0f0f0f000000":z$[201+128]="f0f0f00f0f0f0f000000":z$[202+128]="0f0f0f0f0f0f0f000000":z$[203+128]="ffffff0f0f0f0f000000"
z$[204+128]="000000ffffffff000000":z$[205+128]="f0f0f0ffffffff000000":z$[206+128]="0f0f0fffffffff000000":z$[207+128]="ffffffffffffff000000"
z$[208+128]="00000000000000f0f0f0":z$[209+128]="f0f0f000000000f0f0f0":z$[210+128]="0f0f0f00000000f0f0f0":z$[211+128]="ffffff00000000f0f0f0"
z$[212+128]="000000f0f0f0f0f0f0f0":z$[213+128]="f0f0f0f0f0f0f0f0f0f0":z$[214+128]="0f0f0ff0f0f0f0f0f0f0":z$[215+128]="fffffff0f0f0f0f0f0f0"
z$[216+128]="0000000f0f0f0ff0f0f0":z$[217+128]="f0f0f00f0f0f0ff0f0f0":z$[218+128]="0f0f0f0f0f0f0ff0f0f0":z$[219+128]="ffffff0f0f0f0ff0f0f0"
z$[220+128]="000000fffffffff0f0f0":z$[221+128]="f0f0f0fffffffff0f0f0":z$[222+128]="0f0f0ffffffffff0f0f0":z$[223+128]="fffffffffffffff0f0f0"
z$[224+128]="000000000000000f0f0f":z$[225+128]="f0f0f0000000000f0f0f":z$[226+128]="0f0f0f000000000f0f0f":z$[227+128]="ffffff000000000f0f0f"
z$[228+128]="000000f0f0f0f00f0f0f":z$[229+128]="f0f0f0f0f0f0f00f0f0f":z$[230+128]="0f0f0ff0f0f0f00f0f0f":z$[231+128]="fffffff0f0f0f00f0f0f"
z$[232+128]="0000000f0f0f0f0f0f0f":z$[233+128]="f0f0f00f0f0f0f0f0f0f":z$[234+128]="0f0f0f0f0f0f0f0f0f0f":z$[235+128]="ffffff0f0f0f0f0f0f0f"
z$[236+128]="000000ffffffff0f0f0f":z$[237+128]="f0f0f0ffffffff0f0f0f":z$[238+128]="0f0f0fffffffff0f0f0f":z$[239+128]="ffffffffffffff0f0f0f"
z$[240+128]="00000000000000ffffff":z$[241+128]="f0f0f000000000ffffff":z$[242+128]="0f0f0f00000000ffffff":z$[243+128]="ffffff00000000ffffff"
z$[244+128]="000000f0f0f0f0ffffff":z$[245+128]="f0f0f0f0f0f0f0ffffff":z$[246+128]="0f0f0ff0f0f0f0ffffff":z$[247+128]="fffffff0f0f0f0ffffff"
z$[248+128]="0000000f0f0f0fffffff":z$[249+128]="f0f0f00f0f0f0fffffff":z$[250+128]="0f0f0f0f0f0f0fffffff":z$[251+128]="ffffff0f0f0f0fffffff"
z$[252+128]="000000ffffffffffffff":z$[253+128]="f0f0f0ffffffffffffff":z$[254+128]="0f0f0fffffffffffffff":z$[255+128]="ffffffffffffffffffff"

dim mapch[40,40]:dim mapat[40,40]

'- functions and routines

function hexvl(a$)
   e=asc(ucase$(a$))
   hexvl=abs(((e>=48 and e<=57)*(e-48))+((e>=65 and e<=70)*(e-55)))
 end function

function bytefromhexdump(a$,byteadr)
   i=(byteadr*2)+1:m1$=mid$(a$,i,1):m2$=mid$(a$,i+1,1)
   tmpr=(hexvl(m1$)*16)+hexvl(m2$):bytefromhexdump=tmpr
 end function

sub hexdumpplot(x,y,a$,i,p)
  for e=0 to (len(a$)/2)-1:v=bytefromhexdump(a$,e)
    for z=0 to 7:ik=p:z2=7-z
      if (((int(v/(2^z2)))mod 2) and (2^z2)) then:ik=i:end if
      'ink(ik):dot(x+z,y+e):next:next
      ink(ik):bar((x+z)*zoommode,(y+e)*zoommode,(x+z)*zoommode+1,(y+e)*zoommode+1):next:next
 end sub

sub hexdumpplotctx(xt,yt,cht,i,p)
  ch=cht:a$=z$[ch]:x=xt*8:y=yt*10
  for e=0 to (len(a$)/2)-1:v=bytefromhexdump(a$,e)
    for z=0 to 7:ik=p:z2=7-z
      if (((int(v/(2^z2)))mod 2) and (2^z2)) then:ik=i:end if
      'ink(ik):dot(x+z,y+e):next:next
      ink(ik):bar((x+z)*zoommode,(y+e)*zoommode,(x+z)*zoommode+1,(y+e)*zoommode+1):next:next
 end sub

sub printsblo(xlt,ylt,oft,a$)
  xl=xlt:yl=ylt:alen=len(a$)
  for iz=1 to alen
    hx$=z$[ (asc(mid$(a$,iz,1))+oft)mod 256 ]
    hexdumpplot(xl*8,yl*10,hx$,pen,paper):xl=xl+1
    if xl>((displaywidth\8)-1) then:xl=0:yl=yl+1:end if:next
  end sub

sub filchchc(ikt,ppt)
  ik=ikt:pp=ppt
  for y=0 to 13:for x=0 to 15:c=x+(y*16)
    hexdumpplotctx(x+52,y+1,c,paleta$[ik mod 8],paleta$[8])
    next:next
  for y=16 to 29:for x=0 to 15:c=x+(y*16)
    hexdumpplotctx(x+52,y-1,c,paleta$[ik mod 8],paleta$[pp mod 8])
    next:next
  end sub


function posloc(pmou,poff,pws,pcsz,pzo):
  return ( (pws*10)  + (int (( (pmou/pzo)-(poff*pcsz))/pcsz))  ) mod pws
  end function

function posexs(pmou,poff,pws,pcsz,pzo):
  vlou=1
  if (pmou<((poff*pcsz)*pzo)) or (pmou>(((poff+pws)*pcsz))*pzo) then
    vlou=0:end if
  return vlou
  end function


'- opening display

xed=552:yed=300+20:wndwd=1
setdisplay(xed*zoommode,yed*zoommode,32,wndwd):paper(paleta$[8]):ink(paleta$[0]):pen(paleta$[0]):cls
setcaption("EF9345 display editor")

'- drawing stuff

for y=0 to 1:for c=0 to 15
  paper(paleta$[c]):pen(paleta$[c]):ink(paleta$[c])
  'printsblo(42+c,10+(y*1),0," ")
  bar((336+8+c*8)*zoommode,(11+y*10)*zoommode,(344+8+c*8)*zoommode,(18+y*10)*zoommode)
  next:next

'- draw zoomed setetg
for y=0 to 9:for x=0 to 7
  ink(0xFFFFFF)
  bar((336+8+x*8)*zoommode,(60+y*8)*zoommode,(342+8+x*8)*zoommode,(66+y*8)*zoommode)
  next:next

filchchc(ikcur,ppcur)

for y=0 to 24:for x=0 to 39
  chrd=rnd(128)+256:ikrd=int(rnd(79)/10):pprd=int(rnd(79)/10)
  paper(paleta$[pprd]):pen(paleta$[ikrd])
  hexdumpplotctx(x+1,y+1,chrd,pen,paper)
  mapch[x,y]=chrd
  mapat[x,y]=ikrd*16+pprd
  next:next

paper(paleta$[7]):pen(paleta$[0])
printsblo(1,27,0,"open")
printsblo(6,27,0,"save")

printsblo(43,15,0,"copy to")


printsblo(43,4,0,"x")
printsblo(47,4,0,"x")

paper(0x808080):pen(paleta$[0])
printsblo(44,4,0,"x2")
printsblo(48,4,0,"y2")


paper(paleta$[ppcur]):pen(paleta$[ikcur])









do
  xmou=xmouse:ymou=ymouse
  xmou2=int((xmou/zoommode)/8)
  ymou2=int((ymou/zoommode)/10)

  paper(0x808080):pen(paleta$[0])
  printsblo(1,28,0, right$("000"+str$(xmou2),3)  )
  printsblo(1,29,0, right$("000"+str$(ymou2),3)  )

  printsblo(6,28,0, right$("000"+str$(posloc(xmou,1,40,8,zoommode)),3)  )
  printsblo(6,29,0, right$("000"+str$(posexs(xmou,1,40,8,zoommode)),3)  )
  printsblo(10,28,0, right$("000"+str$(posloc(ymou,1,25,10,zoommode)),3)  )
  printsblo(10,29,0, right$("000"+str$(posexs(ymou,1,25,10,zoommode)),3)  )

  printsblo(16,28,0, right$("000"+str$(posloc(xmou,52,16,8,zoommode)),3)  )
  printsblo(16,29,0, right$("000"+str$(posexs(xmou,52,16,8,zoommode)),3)  )
  printsblo(20,28,0, right$("000"+str$(posloc(ymou,1,28,10,zoommode)),3)  )
  printsblo(20,29,0, right$("000"+str$(posexs(ymou,1,28,10,zoommode)),3)  )

  uuq1=posloc(ymou,1,32,10,zoommode)
  uuq2=uuq1
  if uuq1>7 then:uuq2=uuq2+2:end if
  if uuq1>21 then:uuq2=uuq2+2:end if
  printsblo(20,30,0, right$("000"+str$(uuq2),3) )

  chq1=uuq2*16+posloc(xmou,52,16,8,zoommode)
  printsblo(20,31,0, right$("000"+str$(chq1),3) )



  '- deprecated - remove soon
  x=int(xmouse/(8*2)):y=int(ymouse/(10*2))

  if bmouse<>0 then:

  '- ink
  if xmou2>=43 and xmou2<=50 and ymou2=1 then
    ikcur=((x-43)mod 8):filchchc(ikcur,ppcur)
    ink(paleta$[8]):box((8*2)*1,(10*2)*18,(8*2)*17,(10*2)*18+1):box((8*2)*1,(10*2)*18+(7*2),(8*2)*17,(10*2)*18+(7*2)+1)
    ink(paleta$[0]):box((8*2)*x,(10*2)*18,(8*2)*x+(7*2),(10*2)*18+1):box((8*2)*x,(10*2)*18+(7*2),(8*2)*x+(7*2),(10*2)*18+(7*2)+1)
    end if

  '- paper
  if xmou2>=43 and xmou2<=50 and ymou2=2 then
    ppcur=((x-43)mod 8):filchchc(ikcur,ppcur)
    ink(paleta$[8]):line(8*1,10*19,8*17,10*19):line(8*1,10*19+7,8*17,10*19+7)
    ink(paleta$[0]):line(8*x,10*19,8*x+7,10*19):line(8*x,10*19+7,8*x+7,10*19+7)
    end if




  '- ?????? putchr? - replace x y to xmou2 ymou2
  if  x>=1 and x<=40 and y>=1 and y<=25 then
    if chcur<256 then
      ppcur=mapat[x-1,y-1]mod 8
    end if
      hexdumpplotctx(x,y,chcur,paleta$[ikcur],paleta$[ppcur])
    mapch[x-1,y-1]=chcur
    mapat[x-1,y-1]=ikcur*16+ppcur
    end if






  '- ?????? getchr?
  if xmou2>=52 and xmou2<=67 and ymou2>=1 and ymou2<=28 then
    chcur=(((xmou2-52)+(ymou2-1)*16)mod 512)
    if chcur>127 then:chcur=chcur+32:end if
    if chcur>383 then:chcur=chcur+32:end if
    end if





  end if













  '- open file
  if bmouse<>0 and x>=1 and x<=4 and y=24 then
    shell("a=\"$(zenity --title \"open file...\" --file-selection ~/)\"; cp \"$a\" ./dummy.bin")
    open "dummy.bin" for input as #1
      for y=0 to 24:for x=0 to 39
        mapch[x,y]=readbyte(1)
        next:next
      for y=0 to 63:dummy=readbyte(1):next
      for y=0 to 24:for x=0 to 39
        mapat[x,y]=readbyte(1)
        hexdumpplotctx(x+18,y+1,mapch[x,y],paleta$[int(mapat[x,y]/16)],paleta$[mapat[x,y]mod 16])
        next:next
      close #1
    end if

  '- save file
  if bmouse<>0 and x>=6 and x<=9 and y=24 then
    open "dummy.bin" for output as #1
      for y=0 to 24:for x=0 to 39
        writebyte(1,mapch[x,y])
        next:next
      for y=0 to 63:writebyte(1,0):next
      for y=0 to 24:for x=0 to 39
        writebyte(1,mapat[x,y])
        next:next
      close #1
    shell("a=\"$(zenity --title \"save file...\" --save --confirm-overwrite --file-selection ./)\"; cp ./dummy.bin \"$a\"")
    'shell("a=\"$(zenity --title \"save file...\" --save --confirm-overwrite --file-selection ./*.bin)\"; cp ./dummy.bin \"$a\"")
    'shell("a=\"$(zenity --title \"save file...\" --save --confirm-overwrite --filename=\"./*.bin\")\"; cp ./dummy.bin \"$a\"")
    end if



  waitvbl
  loop

waitkey






'hexdumps01:
'return