10 ' Wait state timing calculation
20 ' Written by Eugeny Brychkov 09-Aug-1028 for GR8NET
25 screen0:width80
30 callnetbload("http://www.gr8bit.ru/software/basic/s1990/s1990.bin",1)
40 defusr=&hc000:a=usr(0)
60 forj=0to7:'bit number, 0=LSB
75 print hex$(i);"/";hex$(j);" ";
80 m=1:ifj=0then90
85 fork=1toj:m=m*2:nextk
90 y=x and (255 xor m):print"(";hex$(y);")-";:out&he3,y:a=usr(0):z=y or m:print"(";hex$(z);")-";:out&he3,z:a=usr(0):out&he3,x
200 nextj:a$=input$(1)
220 stop