Topspeed_JPI/TS/SAVE/PMD.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  PMD.DEF - Modula-2 post-moretm debugging interface                      *
*                                                                          *
*  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

(*%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.