%include "inc:util.imp"

%begin {strip diagnostics off from a mob file}

%recordformat f(%half fe02,flags,exp,imp,%integer code,%half reset,main,
                %integer gla,stack,spare1,spare2)
%record(f)%name r
%integer start,size
%string(255)f
  %on 9 %start; %stop; %finish
  f = cliparam.".mob"
  connectfile(f,0,start,size)
  openoutput(1,f)
  r == record(start)
  r_spare1 = 0; r_spare2 = 0
  size = sizeof(r)+r_imp+r_exp+r_code
  %while size>0 %cycle
    size = size-1; printsymbol(byte(start)); start = start+1
  %repeat
%end