| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647 |
- Listing:
- 1 (* Release 3.00 *)
- 2
- 3 (* Copyright (C) 1989..1991 Jensen & Partners International *)
- 4 (*%F _fdata *)
- 5 (*# call(seg_name => null) *)
- 6 (*# data(seg_name => null) *)
- 7 (*%E *)
- 8 (*# name(prefix=>c) *)
- 9 DEFINITION MODULE PMD;
- 10
- 11 IMPORT CorePMD;
- 12
- 13 TYPE
- 14 ProcessState = RECORD
- 15 PSP, TopLim: CARDINAL;
- 16 BPreg, DSreg, DIreg, SIreg, CSreg, IPreg, SSreg, SPreg: CARDINAL;
- 17 Code: CARDINAL;
- 18 Msg: FarADDRESS;
- ***** ^ undeclared identifier
- 19 FPstate: ARRAY [0..93] OF SHORTCARD;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 20 ProgName: ARRAY [0..79] OF CHAR;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 21 END;
- ***** ^ not supported yet
- 22
- 23 PROCEDURE _PMDbody(VAR state: ProcessState);
- 24
- 25 PROCEDURE UserFatalError(ErrorCode: CARDINAL);
- 26
- 27 CONST
- 28 includePMD ::= CorePMD.includePMD;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 29
- 30 END PMD.
- ***** ^ not supported yet
- 31
- 32
- 9 errors
|
