(* Release 3.00 *)

(* Copyright (C) 1989..1991 Jensen & Partners International *)
(*%F _fdata *)
(*# call(seg_name => null) *)
(*# data(seg_name => null) *)
(*%E *)
(*# name(prefix=>c) *)
DEFINITION MODULE PMD;

IMPORT CorePMD;

TYPE
     ProcessState = RECORD
         PSP, TopLim: CARDINAL;
         BPreg, DSreg, DIreg, SIreg, CSreg, IPreg, SSreg, SPreg: CARDINAL;
         Code: CARDINAL;
         Msg: FarADDRESS;
         FPstate: ARRAY [0..93] OF SHORTCARD;
         ProgName: ARRAY [0..79] OF CHAR;
     END;

PROCEDURE _PMDbody(VAR state: ProcessState);

PROCEDURE UserFatalError(ErrorCode: CARDINAL);

CONST
  includePMD ::= CorePMD.includePMD;

END PMD.