%begin; !EXTRACT code portion from a .MOB file
%include "inc:util.imp"
%record(%half version,flags,export,import,%integer code,
        %half reset,main,%integer own,stack,spare1,spare2)%name fe02
%integer start,size
%string(255)in,out
  defineparam("In",in,pamnodefault)
  defineparam("Out",out,pamnodefault+pamnewgroup)
  processparameters(cliparam)
  connectfile(in,0,start,size)
  fe02 == record(start)
  start = addr(fe02[1])+fe02_export+fe02_import
  size = start+fe02_code
  printstring("Reset, Main: ")
  phex(fe02_reset<<1); space; phex(fe02_main<<1); newline
  openoutput(1,out); selectoutput(1)
  %cycle
    printsymbol(byteinteger(start)); start = start+1
  %repeatuntil start>=size
%end