MPL Bytecode Compiler Code

CONST XPORT:SET OF XAPI=[
  XARGC,XARGV,XCTOL,XCTOU,XFEND,XFNEW,XFOLD,XFRDC,XFRDS,XFWRC,XFWRS,XIABS,XIMAX,
  XIMIN,XISQR,XSOFI,XMCPY,XMREV,XMSET,XRABS,XRADD,XRATN,XRCMP,XRCOS,XRCPY,XRDIV,
  XREXP,XRFRA,XRINT,XRLOG,XRMAX,XRMIN,XRMUL,XRNEG,XRROU,XRSIN,XRSQR,XRSRT,XRSUB,
  XIOFR,XSOFR,XSADD,XSCPY,XSDEL,XSINS,XSMID,XSCHR,XSSTR,XIOFS,XROFS,XVCLR,XVINS,
  XVRDC,XVRDK,XVRDS,XVWRC,XVWRS,XVCLS,XVDEL,XVGXY,XVKEY,XSFIX,XFEOF,XROFI];

PROCEDURE LIBMPX(FN:STR127); VAR F:TEXT; M:XAPI; O:OPER;
  PROCEDURE WRV(S:STR127; I:SHORT); BEGIN WRITELN(F,S,':',I) END;
  PROCEDURE WRI(S:STR127; I:SHORT); BEGIN WRV('.'+S,I) END;
BEGIN
  IF FNEW(F,FN) THEN BEGIN
    WRV('MEM',MPLMEM*2); WRV('RES',MPLRES*2);
    WRI('FMIN',ORD(FMIN)); WRI('FMAX',ORD(FMAX));
    WRI('FINP',ORD(FINP)); WRI('FOUT',ORD(FOUT));
    FOR M:=LOW(XAPI) TO HIGH(XAPI) DO IF M IN XPORT THEN BEGIN
      STR(M,FN); DELETE(FN,1,1); WRI(FN,-ORD(M));
    END;
    WRITELN(F);
    FEND(F)
  END;
  FN := 'mpldefs.h';
  IF FNEW(F,FN) THEN
  BEGIN
    FOR O:=LOW(O) TO HIGH(O) DO BEGIN
      STR(O,FN); WRITELN(F, '#define ',FN, ' ', ORD(O));
    END;
    WRITELN(F);
    FOR M:=LOW(M) TO HIGH(M) DO BEGIN
      STR(M,FN); WRITELN(F, '#define ',FN, ' ', ORD(M));
    END;
    WRITELN(F);
    FEND(F);
  END;
END;