Contributor: RANDALL WOODMAN
Unit ExtError;
{ Information lifted from 'Disk Operating System 3.30 Technical Reference'.
An IBM publication. USE this unit with DOS 3.0 or higher.
}
Interface
Implementation
uses Dos;
{$F+,R-,S-,I- }
Var
ExitSave : Pointer;
Procedure GetExtendedError;
Var
Regs : Registers;
s : String;
Begin
ExitProc := ExitSave;
Regs.AH := 59ドル;
Regs.BX := 0000ドル;
Intr(21,ドル Regs);
Write('Error #');
Case Regs.AX of
1 : s := 'Invalid function number';
2 : s := 'File not found';
3 : s := 'Path not found';
4 : s := 'Too many open files (no handles left)';
5 : s := 'Access denied (file was opened Read Only)';
6 : s := 'Invalid handle';
7 : s := 'Memory control blocks destroyed';
8 : s := 'Insufficient memory';
9 : s := 'Invalid memory block address';
10 : s := 'Invalid environment';
11 : s := 'Invalid format';
12 : s := 'Invalid access code';
13 : s := 'Invalid data';
15 : s := 'Invalid drive was specified';
16 : s := 'Attempt to remove current directory';
17 : s := 'Not same device';
18 : s := 'No more files';
19 : s := 'Attempt to write on write-protected diskette';
20 : s := 'Unknown unit';
21 : s := 'Drive not ready';
22 : s := 'Unknown command';
23 : s := 'Data error (CRC)';
24 : s := 'Bad request structure length';
25 : s := 'Seek error';
26 : s := 'Unknown media type';
27 : s := 'Sector not found';
28 : s := 'Printer out of paper';
29 : s := 'Write fault';
30 : s := 'Read fault';
31 : s := 'General failure';
32 : s := 'Sharing violation';
33 : s := 'Lock violation';
34 : s := 'Invalid disk change';
35 : s := 'FCB unavailable';
36 : s := 'Sharing buffer overflow';
50 : s := 'Network request not supported';
51 : s := 'Remote computer not listening';
52 : s := 'Duplicate name on network';
53 : s := 'Network name not found';
54 : s := 'Network busy';
55 : s := 'Network device no longer exists';
56 : s := 'Net BIOS command limit exceeded';
57 : s := 'Network adapter hardware error';
58 : s := 'Incorrect response from network';
59 : s := 'Unexpected network error';
60 : s := 'Incompatible remote adapter';
61 : s := 'Print queue full';
62 : s := 'Not enough space for print file';
63 : s := 'Print file was deleted';
65 : s := 'Access denied';
66 : s := 'Network device type incorrect';
67 : s := 'Network name not found';
68 : s := 'Network name limit exceeded';
69 : s := 'Net BIOS session limit exceeded';
70 : s := 'Temporarily paused';
71 : s := 'Network request not accepted';
72 : s := 'Print or disk redirection is paused';
80 : s := 'File exists';
82 : s := 'Cannot make directory entry';
83 : s := 'Fail on INT 24';
84 : s := 'Too many redirections';
85 : s := 'Duplicate redirection';
86 : s := 'Invalid password';
87 : s := 'Invalid parameter';
88 : s := 'Network device fault';
end;
WriteLn(Regs.AX, ': ', s);
Write('Error class: ');
Case Regs.BH of
1 : s := 'Out of resource';
2 : s := 'Temporary situation';
3 : s := 'Permission problem';
4 : s := 'Internal error in system software';
5 : s := 'Hardware failure';
6 : s := 'Serious failure of system software';
7 : s := 'Application program error';
8 : s := 'File/item not found';
9 : s := 'File/item of invalid format or type';
10 : s := 'File/item interlocked';
11 : s := 'Media failure: wrong disk, CRC error...';
12 : s := 'Collision with existing item';
13 : s := 'Classification doesn''t exist or is inappropriate';
end;
WriteLn(s);
Write('Suggested action: ');
Case Regs.BL of
1 : s := 'Retry';
2 : s := 'Retry after pause';
3 : s := 'Ask user to re-enter input';
4 : s := 'Abort program with cleanup';
5 : s := 'Abort immediately, skip cleanup';
6 : s := 'Ignore';
7 : s := 'Retry after user intervention';
end;
WriteLn(s);
Write('Error locus: ');
Case Regs.CH of
1 : s := 'Unknown or inappropriate';
2 : s := 'Related to disk storage';
3 : s := 'Related to the network';
4 : s := 'Serial device';
5 : s := 'Memory';
end;
WriteLn(s);
Halt;
end; { GetExtendedError }
Begin
ExitSave := ExitProc;
ExitProc := @GetExtendedError;
end. { ExtError }