paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 04:48:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

atari: add metados functions to tos interface

Browse Source
This commit is contained in:
Thorsten Otto 2022-02-05 14:23:38 +01:00 committed by Charlie Balogh
parent 904c59fbff
commit 43e92ef2b7
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/tosunits/src/tos.pas
View File

@ -229,6 +229,16 @@ function buffptr(bptr: Pointer): LongInt; syscall 14 141;
procedure VsetMask(ormask, andmask: LongInt; overlay: smallint); syscall 14 150;
procedure Metainit(var buffer: TMETAINFO); syscall 14 48;
function Metaopen(drive: smallint; var buffer: TMETA_DRVINFO): LongInt; syscall 14 49;
function Metaclose(drive: smallint): LongInt; syscall 14 50;
function Metaread(drive: smallint; buffer: Pointer; blockno: LongInt; count: smallint): LongInt; syscall 14 51;
function Metawrite(drive: smallint; buffer: Pointer; blockno: LongInt; count: smallint): LongInt; syscall 14 52;
function Metaseek(drive: smallint; dummy, offset: longint): LongInt; syscall 14 53;
function Metastatus(drive: smallint; buffer: Pointer): LongInt; syscall 14 54;
function Metaioctl(drive: smallint; magic: LongInt; opcode: smallint; buffer: Pointer): LongInt; syscall 14 55;
(* ++++++++++++++++++++++++++++++++++++++++ *)
(* GEMDOS *)
(* ++++++++++++++++++++++++++++++++++++++++ *)
@ -368,6 +378,7 @@ function Tmalarm(time: longint): LongInt; syscall 1 317;
{ function Psigintr(vec, sig: smallint): LongInt; syscall 1 318; }
function Suptime(var uptime: longint; var loadaverage: longint): LongInt; syscall 1 319;
(* ++++++++++++++++++++++++++++++++++++++++ *)
(* IMPLEMENTATION *)
(* ++++++++++++++++++++++++++++++++++++++++ *)