blob: ab9a63da7504d32ad03f82fb9f23dcd8439e167a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
argc:asmname '_p_argc' Integer;
procedure argv(no:Integer;var str:UNIXfilename); external;
function testreadaccess(var a:UNIXfilename):boolean; external;
procedure setpaths; external;
function testaccess(accessmode:integer; filepath:integer): boolean; external;
function flength(var f: bytefile):integer; external;
procedure bseek(var f: bytefile; loc: integer); external;
procedure flushstdout; external;
procedure readbyte(var f: bytefile; var v: ByteCard); external;
|