MPL Bytecode Compiler Code

CONST XPORT:SET OF MACH=[
  _ARGC,_ARGV,_CTOL,_CTOU,_FEND,_FNEW,_FOLD,_FRDC,_FRDS,_FWRC,_FWRS,_IABS,_IMAX,
  _IMIN,_ISQR,_SOFI,_MCPY,_MREV,_MSET,_RABS,_RADD,_RATN,_RCMP,_RCOS,_RCPY,_RDIV,
  _REXP,_RFRA,_RINT,_RLOG,_RMAX,_RMIN,_RMUL,_RNEG,_RROU,_RSIN,_RSQR,_RSRT,_RSUB,
  _IOFR,_SOFR,_SADD,_SCPY,_SDEL,_SINS,_SMID,_SCHR,_SSTR,_IOFS,_ROFS,_VCEL,_VILN,
  _VRDC,_VRDK,_VRDS,_VWRC,_VWRS,_VCSR,_VDLN,_VGXY,_VISK,_SFIX,_FEOF,_ROFI];

PROCEDURE LIBMPX(FN:STR127); VAR F:TEXT; M:MACH; 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(MACH) TO HIGH(MACH) 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;