mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-06 16:18:23 +02:00
110 lines
4.3 KiB
PHP
110 lines
4.3 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 2023 by Free Pascal development team
|
|
|
|
DOS related defines for Human 68k (Sharp X68000)
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
const
|
|
DOSE_ILGFNC = -1; { Invalid function code executed }
|
|
DOSE_NOENT = -2; { File not found }
|
|
DOSE_NODIR = -3; { Directory not found }
|
|
DOSE_MFILE = -4; { Too many open files }
|
|
DOSE_ISDIR = -5; { Directory and volume label inaccessible }
|
|
DOSE_BADF = -6; { The specified handle is not open }
|
|
DOSE_BROKNMEM = -7; { The memory management area was destroyed }
|
|
DOSE_NOMEM = -8; { Not enough memory for execution }
|
|
DOSE_ILGMPTR = -9; { Invalid memory management pointer specified }
|
|
DOSE_ILGENV = -10; { Illegal environment specified }
|
|
DOSE_ILGFMT = -11; { Abnormal executable file format }
|
|
DOSE_ILGARG = -12; { Abnormal open access mode }
|
|
DOSE_ILGFNAME = -13; { Invalid file name }
|
|
DOSE_ILGPARM = -14; { Called with invalid parameter }
|
|
DOSE_ILGDRV = -15; { Invalid drive specified }
|
|
DOSE_ISCURDIR = -16; { Current directory can't be deleted }
|
|
DOSE_CANTIOC = -17; { ioctrl can not be used }
|
|
DOSE_NOMORE = -18; { No more files found }
|
|
DOSE_RDONLY = -19; { The file can't be written }
|
|
DOSE_EXISTDIR = -20; { The directory already exists }
|
|
DOSE_NOTEMPTY = -21; { File can't be deleted }
|
|
DOSE_CANTREN = -22; { File can't be renamed }
|
|
DOSE_DISKFULL = -23; { File can't be created because disk is full }
|
|
DOSE_DIRFULL = -24; { File can't be created because folder is full }
|
|
DOSE_CANTSEEK = -25; { Can't seek to the specified position }
|
|
DOSE_SUPER = -26; { Supervisor mode require while in supervisor mode }
|
|
DOSE_DUPTHNAM = -27; { Thread name exists }
|
|
DOSE_CANTSEND = -28; { IPC buffer is write protected }
|
|
DOSE_THFULL = -29; { Can't start any more background processes }
|
|
DOSE_LCKFULL = -32; { Insufficient lock space }
|
|
DOSE_LCKERR = -33; { File is locked and can't be accessed }
|
|
DOSE_BUSYDRV = -34; { The drive has a handler open }
|
|
DOSE_SYMLOOP = -35; { Symbolic link nest exceeded 16 links(lndrv) }
|
|
DOSE_EXISTFILE = -80; { File exists }
|
|
|
|
|
|
type
|
|
h68kdos_comline = record
|
|
case boolean of
|
|
true: ( len: byte; buffer: array[0..255] of char; );
|
|
false: ( pstr: shortstring; )
|
|
end;
|
|
|
|
type
|
|
h68kdos_psp = record
|
|
env: pchar;
|
|
_exit: pointer;
|
|
ctrlc: pointer;
|
|
errexit: pointer;
|
|
comline: ^h68kdos_comline;
|
|
handle: array[0..11] of byte;
|
|
bss: pointer;
|
|
heap: pointer;
|
|
stack: pointer;
|
|
usp: pointer;
|
|
ssp: pointer;
|
|
sr: word;
|
|
abort_sr: word;
|
|
abort_ssp: pointer;
|
|
trap10: pointer;
|
|
trap11: pointer;
|
|
trap12: pointer;
|
|
trap13: pointer;
|
|
trap14: pointer;
|
|
osflg: dword;
|
|
reserve_1: array[0..27] of byte;
|
|
exe_path: array[0..67] of char;
|
|
exe_name: array[0..23] of char;
|
|
reserve_2: array[0..35] of byte;
|
|
end;
|
|
|
|
// as used by seek
|
|
const
|
|
SEEK_FROM_START = 0;
|
|
SEEK_FROM_CURRENT = 1;
|
|
SEEK_FROM_END = 2;
|
|
|
|
procedure h68kdos_exit; noreturn; syscall $ff00;
|
|
function h68kdos_gettim2: longint; syscall $ff27;
|
|
function h68kdos_mkdir(name: pchar): longint; syscall $ff39;
|
|
function h68kdos_rmdir(name: pchar): longint; syscall $ff3a;
|
|
function h68kdos_chdir(name: pchar): longint; syscall $ff3b;
|
|
function h68kdos_create(name: pchar; attr: word): longint; syscall $ff3c;
|
|
function h68kdos_open(name: pchar; mode: word): longint; syscall $ff3d;
|
|
function h68kdos_close(fileno: word): longint; syscall $ff3e;
|
|
function h68kdos_read(fileno: word; buffer: pointer; len: longint): longint; syscall $ff3f;
|
|
function h68kdos_write(fileno: word; buffer: pointer; len: longint): longint; syscall $ff40;
|
|
function h68kdos_delete(name: pchar): longint; syscall $ff41;
|
|
function h68kdos_seek(fileno: word; offset: longint; mode: word): longint; syscall $ff42;
|
|
function h68kdos_malloc(size: longint): pointer; syscall $ff48;
|
|
function h68kdos_mfree(ptr: pointer): longint; syscall $ff49;
|
|
function h68kdos_setblock(ptr: pointer; size: longint): longint; syscall $ff4a;
|
|
procedure h68kdos_exit2(code: smallint); noreturn; syscall $ff4c;
|