!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!  Utility/test macro for ICE-PIC DSP card
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
startmacro/setup/nover/quiet/nmq=1k/timeout=100 &
	u:device[pic1] u:file[gsm_test] n:dec[256]

  picd reset ^device gsm

  if /sf gt 0
    pic create gsmrami sp 2m 2e6
    pic create gsmramo sp 8m 8e6
  else
    noop file gsmrami(aux=ramaux)(det=1)
    pic create gsmramo sp 8m 8e6
  endif

  xpipe on

  if /sf gt 0
    sourcefile/replay=2/tl=32k file _pipe(ps=1m)
    sinkpic/flags=iom=test|intclk/port=module2 &
	_pipe gsmrami ^device 
  else
    picd/replay=2/flags=iom=test|intclk/pause=0.2/port=module2 &
	play ^device gsmrami
  endif

  picfunc/id=11/wb=1/port=module1/flags=iom=test &
        GSM ^device gsmramo _raw &
	_cc1(bpc=8)(bco=8) _cd1a(bpc=2)(bco=16) _cd1b(bpc=2)(bco=16) &
	_cc2(bpc=8)(bco=8) _cd2a(bpc=2)(bco=16) _cd2b(bpc=2)(bco=16)
  noop/tl=256*8/cl=256*8*dec _raw _rawd
  xrtraster/xs=2/lps=128/xn="Raw Frame Data" _rawd ,0,1,, 256, 4
  xrtraster/xs=3/lps=128/xn="Control Channel" _cc1(cl=8*dec) ,0,1,, 8, 4
  xrtraster/xs=4/lps=128/xn="Data Channel" _cd1a(cl=8*dec) ,0,1,, 8, 4
  xpipe off

  picd reset ^device 
  erase gsmrami gsmramo

endmacro

