startmacro u:device[pic1] u:port[1] u:func[all] &
		a:form[sb] n:rate[10e6] a:clk[i] n:dec[256] 

local type
picd get ^device "TYPE" type

if /nofc le 0
pic create ramfile si 8m 10e6
endif

picd reset ^device iix

if func eqs mux
 header ramfile f=^form xd=1/rate
 pic/port=module^port/flags=muxclk=^clk test/rt ^device ramfile 1k 512
endif

if func eqs hs 
 pic clean
 pic create ramfile ci 8m 25e6
 pic/port=module3/flags=muxclk=x test/rt ^device ramfile 1k 1k
endif
if func eqs vhs and port eqs "1"
 pic create ramfile si 9m 50e6
 pic/port=module1/flags=muxclk=x|vhs test/rt ^device ramfile 1k 128*3
endif
if func eqs vhs and port eqs "3"
 pic create ramfile ci 9m 25e6
 pic/port=module3/flags=muxclk=x|vhs test/rt ^device ramfile 1k 340
endif
if func eqs i5i or func eqs all
 header ramfile f=si xd=1/5e6
 pic/port=module^port/flags=muxclk=i test/rt ^device ramfile 1k 256
endif
if func eqs i10i or func eqs all
 header ramfile f=si xd=1/10e6
 pic/port=module^port/flags=muxclk=i test/rt ^device ramfile 1k 512
 picd testbits ramfile(1:64k) counts
 data counts
endif
if func eqs i10t 	! T2D Test
 header ramfile f=si xd=1/10e6
 pic/port=module^port/flags=iom=t2d|muxclk=a test/rt ^device ramfile 1k 512
 picd testbits ramfile(1:64k) counts
 data counts
endif
if func eqs b40i or func eqs all
 header ramfile f=sb xd=1/40e6
 pic/port=module^port/flags=muxclk=i test/rt ^device ramfile 1k 1k
endif
if type eq 3 or type eq 9 and func eqs b65c or func eqs all 
 header ramfile f=sb xd=1/65e6
 pic/port=module^port/flags=muxclk=c test/rt ^device ramfile 1k 1k
endif
if type eq 4 and func eqs b100c or func eqs all 
 header ramfile f=sb xd=1/100e6
 pic/port=module^port/flags=muxclk=c test/rt ^device ramfile 1k 1k
endif
if func eqs b65chs 
 header ramfile f=sb xd=1/65e6 sz=6m
 pic/port=module^port/flags=muxclk=c|vhs test/rt ^device ramfile 1k 1k
endif
if func eqs t65c 
 pic create tunfile ci 128k 65e6/dec/2 
 pic/port=tuner^port/flags=muxclk=c test/rt ^device tunfile 1k dec 1e6
endif
if func eqs txi 
 pic create tunfile ci 1m 10e6/dec/2 
 pic/port=tuner^port/flags=muxclk=i test/rt ^device tunfile 1k dec 1e6
endif

picd reset ^device ii

if func eqs b50 or func eqs all
 header ramfile f=sb xd=1/50e6
 pic/port=module^port test/rt ^device ramfile 1k 1k
endif
if func eqs i38 or func eqs all
 header ramfile f=si xd=1/38e6
 pic/port=module^port test/rt ^device ramfile 1k 1k
endif
if func eqs i30 
 header ramfile f=si xd=1/30e6
 pic/port=module^port test/rt ^device ramfile 1k 1k
endif
if func eqs b25xt 
 header ramfile f=sb xd=1/25e6
 pic/port=module^port/flags=ggo|xgo test/rt ^device ramfile 1k 1k
endif
if func eqs t38 or func eqs all
 pic create tunfile ci 128k 38e6/256/2 
 pic/port=tuner^port test/rt ^device tunfile 1k 256 1e6
endif


if /nofc le 0 erase ramfile

endmacro

