'ESP8266/AD9850 for XHDATA D220 ans others by hjberndt.de
'3250-7550
'5700-
'5905, 6180 DWD voice
'3975 at 2000 'ESP8266
'3250-7550
'5700-
'5905, 6180 DWD voice
'3975 at 2000 
'3955 at 2000 Korea dt
'8891 voice air
'9670 Channel 292
memclear
cssclass "body", "background-color: steelblue;"
' stations < 256 chars in esp8266BASIC
stations = "4626 Buzzer,9996 Time/CW,5450 Volmet,5505 Shannon Volmet,5583 Iceland Radio,7878 DWD/FAX,7645 DWD/RTTY,8672 FAX,8942 HFDL,8939 RusVolmet/8942 HFDL,8957 Shannon Volmet,10102 DWD/RTTY,11253 Shannon Volmet,13264 Shannon Volmet,14230 SSTV,14324 HAMv"

stations2 = "5905 DWD Seewetter,6180 DWD Seewetter,9670 Channel 292 AM,17490 AM"

'DATA = 13 MOSI
'W_CL = 14 SCK
RS = 15 'RESET
FO = 16 'CS
io(po,FO,1)
io(po,RS,0)
spi.setup(1000000,0,0)
p = 0

HTML "<hr>"
Button "- -",[minmin]
Button "-",[minus]
textbox f
Button "+",[plus]
Button "++",[plusplus]
HTML "<hr>"
list = "5505 Shannon Volmet"

listbox list,stations,15
f = val(word(list,1))
Button " Set ",[listset]

listbox list2,stations2,15
'f = val(word(list2,1))
Button " Set ",[listset2]

gosub [set]
Timer 100,[tm]
wait

[tm]
If of <> f then gosub [set]
Wait

[listset]
f = val(word(list,1))
'print f
wait

[listset2]
f = val(word(list2,1))
'print f
wait

[plus]
f = f + 1
Wait 

[plusplus]
f = f + 10
Wait

[minus]
f = f - 1
Wait

[minmin]
f = f - 10
Wait

[set]
'f in kHz!
'Print f
io(po,FO,0)
of = f
dp = f * 4294967296 / 125000'000
ph = p << 3
for byte = 1 to 4
 b = dp and 255
 spi.byte(b)
 dp = dp >> 8
next byte
spi.byte(ph)
io(po,FO,1)
return