%include "inc:util.imp"
%include "inc:fs.imp"
%begin
%recordformat pf(%byte ds,dp,%integer dn,
                 %byte ss,sp,%integer sn,
                 %byte type,seq,%bytearray b(1:999))
%record(pf)p
%integer multi=0,data=0,acks=0,other=0,t
%constinteger dtype=16_01,atype=16_81

  t = cputime+1000; %cycle; %repeatuntil cputime>t
  twait; ethc = 7
  twait; ethd = 16_80
  twait; ethc = 2

  %cycle
    %if dtx&1#0 %start
      t = etherread(0,p_ds,999)
      %if p_type=dtype %start
        phex2(p_ds); space; phex2(p_ss)
        write(t,3); newline
      %finish
      multi = multi+1 %if p_ds=0
      %if p_type=dtype %then data = data+1 %else-
      %if p_type=atype %then acks = acks+1 %else-
                             other = other+1
    %finish
  %repeatuntil testsymbol>=0

  printstring("Data="); write(data,0)
  printstring(", Acks="); write(acks,0)
  printstring(", Other="); write(other,0)
  printstring(", Multi="); write(multi,0); newline

  eths = 16_40
  eths = 6
  etheropen(lsap,rdte<<8+rsap)
%end