1 ' Wait state timing calculation
2 ' Written by Eugeny Brychkov 09-Aug-1028 for GR8NET
5 screen0:width80:out&h40,8:a=inp(&h40)xor255:ifa<>8thenprint"No Panasonic register":stop
30 callnetbload("http://www.gr8bit.ru/software/basic/s1990/s1990.bin",1)
40 defusr=&hc000:a=usr(0)
50 fori=1to15:'register number
55 x=inp(&h40+i):print"[";hex$(x);"]-";
60 forj=0to7:'bit number, 0=LSB
70 ifi=1 and j=0 then200:'Turbo mode
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&he5,y:a=usr(0):z=y or m:print"(";hex$(z);")-";:out&he5,z:a=usr(0):out&he5,x
200 nextj:a$=input$(1)
210 nexti
220 stop