startmacro u:dev[pic1] u:mode[ii] u:sflags[]

!loop 100 i
! picd/port=module1/flags=iom=sntxd acquire ^dev ramfile
! THIN,RAMFILE,ramfile2,3,-1,0,IN
! THIN,RAMFILE2,RAMFILE3,1,-1,2430,IN
! statis ramfile3
!endloop
if mode eqss oc3 then
  res frame 2430
  res dec 2430
  res rate 25e6
  res frmrate 32k
elseif mode eqss oc12 then
  res frame 9720
  res dec 9720
  res rate 80e6 
  res frmrate 8k
elseif mode eqss oc24 then
  res frame 19440
  res dec 19440
  res rate 160e6 
  res frmrate 8k
endif
 
if /file gt 0
 picd/flags=iom=sntxd/port=module1 acquire^dev ramfile
elseif /b gt 0
 pic create ramfile sb frmrate*frame rate
 pic/nospectra/port=module2/flags=^sflags test/rt ^dev ramfile frame dec
else
 pic create ramfile sb frmrate*frame rate
 pic/nospectra/port=module1/flags=^sflags test/rt ^dev ramfile frame dec
endif

endmacro






















