blob: 46d764d3cdeab06dde4dd29b88f798c24e8a3185 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
{
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;
|
