mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-10 11:32:46 +02:00
165 lines
7.1 KiB
PHP
165 lines
7.1 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 2016 by Free Pascal development team
|
|
|
|
GEMDOS related defines for Atari TOS
|
|
|
|
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.
|
|
|
|
**********************************************************************}
|
|
|
|
|
|
{ The API description of this file is based on the information available
|
|
online at: http://toshyp.atari.org }
|
|
|
|
const
|
|
E_OK = 0; // OK. No error has arisen
|
|
EINVFN = -32; // Unknown function number
|
|
EFILNF = -33; // File not found
|
|
EPTHNF = -34; // Directory (folder) not found
|
|
ENHNDL = -35; // No more handles available
|
|
EACCDN = -36; // Access denied
|
|
EIHNDL = -37; // Invalid file handle
|
|
ENSMEM = -39; // Insufficient memory
|
|
EIMBA = -40; // Invalid memory block address
|
|
EDRIVE = -46; // Invalid drive specification
|
|
ECWD = -47; // Current directory cannot be deleted
|
|
ENSAME = -48; // Files on different logical drives
|
|
ENMFIL = -49; // No more files can be opened
|
|
ELOCKED = -58; // Segment of a file is protected (network)
|
|
ENSLOCK = -59; // Invalid lock removal request
|
|
ERANGE = -64; // File pointer in invalid segment (see also FreeMiNT message -88)
|
|
EINTRN = -65; // Internal error of GEMDOS
|
|
EPLFMT = -66; // Invalid program load format
|
|
EGSBF = -67; // Allocated memory block could not be enlarged
|
|
EBREAK = -68; // Program termination by Control-C
|
|
EXCPT = -69; // 68000 exception (bombs)
|
|
EPTHOV = -70; // Path overflow
|
|
ELOOP = -80; // Endless loop with symbolic links
|
|
EPIPE = -81; // Write to broken pipe.
|
|
|
|
// as used by fseek
|
|
const
|
|
SEEK_FROM_START = 0;
|
|
SEEK_FROM_CURRENT = 1;
|
|
SEEK_FROM_END = 2;
|
|
|
|
// as used by fcreate and fattrib
|
|
const
|
|
ATTRIB_WRITE_PROT = ( 1 shl 0 );
|
|
ATTRIB_HIDDEN = ( 1 shl 1 );
|
|
ATTRIB_SYSTEM = ( 1 shl 2 );
|
|
ATTRIB_VOLUME_LABEL = ( 1 shl 3 );
|
|
ATTRIB_DIRECTORY = ( 1 shl 4 );
|
|
ATTRIB_ARCHIVE = ( 1 shl 5 );
|
|
|
|
// as used by fopen
|
|
const
|
|
OPEN_READ_ONLY = ( 1 shl 0 );
|
|
OPEN_WRITE_ONLY = ( 1 shl 1 );
|
|
OPEN_READ_WRITE = ( 1 shl 2 );
|
|
|
|
// as used by fattrib
|
|
const
|
|
FLAG_GET = 0;
|
|
FLAG_SET = 1;
|
|
|
|
type
|
|
PDTA = ^TDTA;
|
|
TDTA = packed record
|
|
d_reserved: array[0..20] of shortint; {* Reserved for GEMDOS *}
|
|
d_attrib: byte; {* File attributes *}
|
|
d_time: word; {* Time *}
|
|
d_date: word; {* Date *}
|
|
d_length: dword; {* File length *}
|
|
d_fname: array[0..13] of char; {* Filename *}
|
|
end;
|
|
|
|
type
|
|
PDISKINFO = ^TDISKINFO;
|
|
TDISKINFO = record
|
|
b_free: dword; {* Number of free clusters *}
|
|
b_total: dword; {* Total number of clusters *}
|
|
b_secsiz: dword; {* Bytes per sector *}
|
|
b_clsiz: dword; {* Sector per cluster *}
|
|
end;
|
|
|
|
type
|
|
PDOSTIME = ^TDOSTIME;
|
|
TDOSTIME = record
|
|
time: word; {* Time like Tgettime *}
|
|
date: word; {* Date like Tgetdate *}
|
|
end;
|
|
|
|
type
|
|
PPD = ^TPD;
|
|
TPD = record
|
|
p_lowtpa: pointer; {* Start address of the TPA *}
|
|
p_hitpa: pointer; {* First byte after the end of the TPA *}
|
|
p_tbase: pointer; {* Start address of the program code *}
|
|
p_tlen: longint; {* Length of the program code *}
|
|
p_dbase: pointer; {* Start address of the DATA segment *}
|
|
p_dlen: longint; {* Length of the DATA section *}
|
|
p_bbase: pointer; {* Start address of the BSS segment *}
|
|
p_blen: longint; {* Length of the BSS section *}
|
|
p_dta: PDTA; {* Pointer to the default DTA *}
|
|
{* Warning: Points first to the *}
|
|
{* command line ! *}
|
|
p_parent: PPD; {* Pointer to the basepage of the *}
|
|
{* calling processes *}
|
|
p_resrvd0: longint; {* Reserved *}
|
|
p_env: pchar; {* Address of the environment string *}
|
|
p_resrvd1: array[0..79] of char; {* Reserved *}
|
|
p_cmdlin: array[0..127] of char; {* Command line *}
|
|
end;
|
|
TBASEPAGE = TPD; {* alias types... *}
|
|
PBASEPAGE = ^TBASEPAGE;
|
|
|
|
|
|
procedure gemdos_cconws(p: pchar); syscall 1 9;
|
|
|
|
function gemdos_dsetdrv(drv: smallint): longint; syscall 1 14;
|
|
|
|
function gemdos_dgetdrv: smallint; syscall 1 25;
|
|
procedure gemdos_setdta(buf: PDTA); syscall 1 26;
|
|
|
|
function gemdos_tgetdate: longint; syscall 1 42;
|
|
function gemdos_tsetdate(date: word): smallint; syscall 1 43;
|
|
function gemdos_tgettime: longint; syscall 1 44;
|
|
function gemdos_tsettime(time: word): smallint; syscall 1 45;
|
|
|
|
function gemdos_getdta: PDTA; syscall 1 47;
|
|
function gemdos_sversion: smallint; syscall 1 48;
|
|
|
|
function gemdos_dfree(buf: PDISKINFO; driveno: smallint): smallint; syscall 1 54;
|
|
|
|
function gemdos_dcreate(const path: pchar): longint; syscall 1 57;
|
|
function gemdos_ddelete(const path: pchar): longint; syscall 1 58;
|
|
function gemdos_dsetpath(path: pchar): smallint; syscall 1 59;
|
|
function gemdos_fcreate(fname: pchar; attr: smallint): smallint; syscall 1 60;
|
|
function gemdos_fopen(fname: pchar; mode: smallint): longint; syscall 1 61;
|
|
function gemdos_fclose(handle: smallint): smallint; syscall 1 62;
|
|
function gemdos_fread(handle: smallint; count: longint; buf: pointer): longint; syscall 1 63;
|
|
function gemdos_fwrite(handle: smallint; count: longint; buf: pointer): longint; syscall 1 64;
|
|
function gemdos_fdelete(fname: pchar): smallint; syscall 1 65;
|
|
function gemdos_fseek(offset: longint; handle: smallint; seekmode: smallint): longint; syscall 1 66;
|
|
function gemdos_fattrib(filename: pchar; wflag: smallint; attrib: smallint): smallint; syscall 1 67;
|
|
|
|
function gemdos_dgetpath(path: pchar; driveno: smallint): smallint; syscall 1 71;
|
|
function gemdos_malloc(number: dword): pointer; syscall 1 72;
|
|
function gemdos_free(block: pointer): dword; syscall 1 73;
|
|
function gemdos_mshrink(zero: word; block: pointer; newsiz: longint): longint; syscall 1 74;
|
|
function gemdos_pexec(mode: word; name: pchar; cmdline: pchar; env: pchar): longint; syscall 1 75;
|
|
procedure gemdos_pterm(returncode: smallint); syscall 1 76;
|
|
|
|
function gemdos_fsfirst(filename: pchar; attr: smallint): longint; syscall 1 78;
|
|
function gemdos_fsnext: smallint; syscall 1 79;
|
|
|
|
function gemdos_frename(zero: word; oldname: pchar; newname: pchar): longint; syscall 1 86;
|
|
procedure gemdos_fdatime(timeptr: PDOSTIME; handle: smallint; wflag: smallint); syscall 1 87;
|