! External module which goes with "Copy Subprocess Data" test

%option "-low-nocheck-nodiag"
%externalroutinespec phex(%integer x)

%externalinteger extvar=16_22222222
%externalintegerspec mainvar
%externalroutinespec main

%externalroutine ext
  printstring("Process "); phex(a5);
  printstring(":  (Ext) mv @"); phex(addr(mainvar))
  printsymbol('='); phex(mainvar)
  printstring(", ev @"); phex(addr(extvar))
  printsymbol('='); phex(extvar); newline
%end