startmacro u:dev[pic1] n:port[1] u:mode[ii]

if mode eqss e3 then
  res frame 1536
  res dec 1k
  res rate 34.368e6
elseif mode eqss e2 then
  res frame 848
  res dec 256
  res rate 8.448e6
elseif mode eqss e1 then
  res frame 512
  res dec 64
  res rate 2.048e6
elseif mode eqss t1 then
  res frame 512
  res dec 64
  res rate 1.544e6
else
  res frame 1536
  res dec 1k
  res rate 34.368e6
endif

if /dec gt 0 
  calc dec /dec
endif

pic create ramfile sp 32k*frame rate

if /file gt 0
 picd/flags=iom=cxd/port=module^port acquire^dev ramfile
else
 pic/nospectra/flags=iom=cxd/port=module^port test/rt ^dev ramfile frame dec
endif

endmacro



