1{
2    This file is part of the Free Pascal run time library.
3    Copyright (c) 2014 Free Pascal development team
4
5    dos functions (V40) for Amiga/68k
6
7    See the file COPYING.FPC, included in this distribution,
8    for details about the copyright.
9
10    This program is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
13
14 **********************************************************************}
15
16
17{ dos.library functions }
18
19function Open(fname     : PChar   location 'd1';
20              accessMode: LongInt location 'd2'): LongInt;
21SysCall AOS_DOSBase 30;
22
23function dosClose(fileh: LongInt location 'd1'): LongBool;
24SysCall AOS_DOSBase 36;
25
26function dosRead(fileh : LongInt location 'd1';
27                 buffer: Pointer location 'd2';
28                 length: LongInt location 'd3'): LongInt;
29SysCall AOS_DOSBase 42;
30
31function dosWrite(fileh : LongInt location 'd1';
32                  buffer: Pointer location 'd2';
33                  length: LongInt location 'd3'): LongInt;
34SysCall AOS_DOSBase 48;
35
36function dosInput: LongInt;
37SysCall AOS_DOSBase 54;
38
39function dosOutput: LongInt;
40SysCall AOS_DOSBase 60;
41
42function dosSeek(fileh   : LongInt location 'd1';
43                 position: LongInt location 'd2';
44                 posmode : LongInt location 'd3'): LongInt;
45SysCall AOS_DOSBase 66;
46
47function dosDeleteFile(fname: PChar location 'd1'): LongBool;
48SysCall AOS_DOSBase 72;
49
50function dosRename(oldName: PChar location 'd1';
51                   newName: PChar location 'd2'): LongInt;
52SysCall AOS_DOSBase 78;
53
54function Lock(lname     : PChar   location 'd1';
55              accessMode: LongInt location 'd2'): LongInt;
56SysCall AOS_DOSBase 84;
57
58procedure Unlock(lock: LongInt location 'd1');
59SysCall AOS_DOSBase 90;
60
61function DupLock(lock: LongInt location 'd1'): LongInt;
62SysCall AOS_DOSBase 096;
63
64function Examine(lock         : LongInt        location 'd1';
65                 fileInfoBlock: PFileInfoBlock location 'd2'): LongInt;
66SysCall AOS_DOSBase 102;
67
68function ExNext(lock         : LongInt        location 'd1';
69                fileInfoBlock: PFileInfoBlock location 'd2'): LongInt;
70SysCall AOS_DOSBase 108;
71
72function Info(lock          : LongInt   location 'd1';
73              parameterBlock: PInfoData location 'd2'): LongInt;
74SysCall AOS_DOSBase 114;
75
76function dosCreateDir(dname: PChar location 'd1'): LongInt;
77SysCall AOS_DOSBase 120;
78
79function CurrentDir(lock: LongInt location 'd1'): LongInt;
80SysCall AOS_DOSBase 126;
81
82function IoErr: LongInt;
83SysCall AOS_DOSBase 132;
84
85function CreateProc(name     : PChar   location 'd1';
86                    pri      : LongInt location 'd2';
87                    segList  : LongInt location 'd3';
88                    stackSize: LongInt location 'd4'): PMsgPort;
89SysCall AOS_DOSBase 138;
90
91procedure dosExit(returnCode: LongInt location 'd1');
92SysCall AOS_DOSBase 144;
93
94function LoadSeg(name: PChar location 'd1'): LongInt;
95SysCall AOS_DOSBase 150;
96
97procedure UnLoadSeg(seglist: LongInt location 'd1');
98SysCall AOS_DOSBase 156;
99
100function DeviceProc(name: PChar location 'd1'): PMsgPort;
101SysCall AOS_DOSBase 174;
102
103function SetComment(name   : PChar location 'd1';
104                    comment: PChar location 'd2'): LongBool;
105SysCall AOS_DOSBase 180;
106
107function SetProtection(name: PChar   location 'd1';
108                       mask: LongInt location 'd2'): LongInt;
109SysCall AOS_DOSBase 186;
110
111function DateStamp(date: PDateStamp location 'd1'): PDateStamp;
112SysCall AOS_DOSBase 192;
113
114procedure DOSDelay(timeout: LongInt location 'd1');
115SysCall AOS_DOSBase 198;
116
117function WaitForChar(file1  : LongInt location 'd1';
118                     timeout: LongInt location 'd2'): LongBool;
119SysCall AOS_DOSBase 204;
120
121function ParentDir(lock: LongInt location 'd1'): LongInt;
122SysCall AOS_DOSBase 210;
123
124function IsInteractive(file1: LongInt location 'd1'): LongBool;
125SysCall AOS_DOSBase 216;
126
127function Execute(string1: PChar   location 'd1';
128                 file1  : LongInt location 'd2';
129                 file2  : LongInt location 'd3'): LongBool;
130SysCall AOS_DOSBase 222;
131
132function AllocDosObject(type1: Cardinal location 'd1';
133                        tags : PTagItem location 'd2'): Pointer;
134SysCall AOS_DOSBase 228;
135
136function AllocDosObjectTagList(type1: Cardinal location 'd1';
137                               tags : PTagItem location 'd2'): Pointer;
138SysCall AOS_DOSBase 228;
139
140procedure FreeDosObject(type1: Cardinal location 'd1';
141                        ptr  : Pointer  location 'd2');
142SysCall AOS_DOSBase 234;
143
144function DoPkt(port  : PMsgPort location 'd1';
145               action: LongInt  location 'd2';
146               arg1  : LongInt  location 'd3';
147               arg2  : LongInt  location 'd4';
148               arg3  : LongInt  location 'd5';
149               arg4  : LongInt  location 'd6';
150               arg5  : LongInt  location 'd7'): LongInt;
151SysCall AOS_DOSBase 240;
152
153function DoPkt0(port  : PMsgPort location 'd1';
154                action: LongInt  location 'd2'): LongInt;
155SysCall AOS_DOSBase 240;
156
157function DoPkt1(port  : PMsgPort location 'd1';
158                action: LongInt  location 'd2';
159                arg1  : LongInt  location 'd3'): LongInt;
160SysCall AOS_DOSBase 240;
161
162function DoPkt2(port  : PMsgPort location 'd1';
163                action: LongInt  location 'd2';
164                arg1  : LongInt  location 'd3';
165                arg2  : LongInt  location 'd4'): LongInt;
166SysCall AOS_DOSBase 240;
167
168function DoPkt3(port  : PMsgPort location 'd1';
169                action: LongInt  location 'd2';
170                arg1  : LongInt  location 'd3';
171                arg2  : LongInt  location 'd4';
172                arg3  : LongInt  location 'd5'): LongInt;
173SysCall AOS_DOSBase 240;
174
175function DoPkt4(port  : PMsgPort location 'd1';
176                action: LongInt  location 'd2';
177                arg1  : LongInt  location 'd3';
178                arg2  : LongInt  location 'd4';
179                arg3  : LongInt  location 'd5';
180                arg4  : LongInt  location 'd6'): LongInt;
181SysCall AOS_DOSBase 240;
182
183procedure SendPkt(dp       : PDosPacket location 'd1';
184                  port     : PMsgPort   location 'd2';
185                  replyport: PMsgPort   location 'd3');
186SysCall AOS_DOSBase 246;
187
188function WaitPkt: PDosPacket;
189SysCall AOS_DOSBase 252;
190
191procedure ReplyPkt(dp  : PDosPacket location 'd1';
192                   res1: LongInt    location 'd2';
193                   res2: LongInt    location 'd3');
194SysCall AOS_DOSBase 258;
195
196procedure AbortPkt(port: PMsgPort   location 'd1';
197                   pkt : PDosPacket location 'd2');
198SysCall AOS_DOSBase 264;
199
200function LockRecord(fh     : LongInt  location 'd1';
201                    offset : Cardinal location 'd2';
202                    length : Cardinal location 'd3';
203                    mode   : Cardinal location 'd4';
204                    timeout: Cardinal location 'd5'): LongBool;
205SysCall AOS_DOSBase 270;
206
207function LockRecords(recArray: PRecordLock location 'd1';
208                     timeout : Cardinal    location 'd2'): LongBool;
209SysCall AOS_DOSBase 276;
210
211function UnLockRecord(fh    : LongInt  location 'd1';
212                      offset: Cardinal location 'd2';
213                      length: Cardinal location 'd3'): LongBool;
214SysCall AOS_DOSBase 282;
215
216function UnLockRecords(recArray: PRecordLock location 'd1'): LongBool;
217SysCall AOS_DOSBase 288;
218
219function SelectInput(fh: LongInt location 'd1'): LongInt;
220SysCall AOS_DOSBase 294;
221
222function SelectOutput(fh: LongInt location 'd1'): LongInt;
223SysCall AOS_DOSBase 300;
224
225function FGetC(fh: LongInt location 'd1'): LongInt;
226SysCall AOS_DOSBase 306;
227
228function FPutC(fh: LongInt location 'd1';
229               ch: LongInt location 'd2'): LongInt;
230SysCall AOS_DOSBase 312;
231
232function UnGetC(fh       : LongInt location 'd1';
233                character: LongInt location 'd2'): LongInt;
234SysCall AOS_DOSBase 318;
235
236function FRead(fh      : LongInt  location 'd1';
237               block   : Pointer  location 'd2';
238               blocklen: Cardinal location 'd3';
239               number  : Cardinal location 'd4'): LongInt;
240SysCall AOS_DOSBase 324;
241
242function FWrite(fh      : LongInt  location 'd1';
243                block   : Pointer  location 'd2';
244                blocklen: Cardinal location 'd3';
245                number  : Cardinal location 'd4'): LongInt;
246SysCall AOS_DOSBase 330;
247
248function FGets(fh    : LongInt  location 'd1';
249               buf   : PChar    location 'd2';
250               buflen: Cardinal location 'd3'): PChar;
251SysCall AOS_DOSBase 336;
252
253function FPuts(fh : LongInt location 'd1';
254               str: PChar   location 'd2'): LongInt;
255SysCall AOS_DOSBase 342;
256
257procedure VFWritef(fh      : LongInt location 'd1';
258                   format  : PChar   location 'd2';
259                   argarray: Pointer location 'd3');
260SysCall AOS_DOSBase 348;
261
262function VFPrintf(fh      : LongInt location 'd1';
263                  format  : PChar   location 'd2';
264                  argarray: Pointer location 'd3'): LongInt;
265SysCall AOS_DOSBase 354;
266
267function dosFlush(fh: LongInt location 'd1'): LongInt;
268SysCall AOS_DOSBase 360;
269
270function SetVBuf(fh   : LongInt location 'd1';
271                 buff : PChar   location 'd2';
272                 type1: LongInt location 'd3';
273                 size : LongInt location 'd4'): LongInt;
274SysCall AOS_DOSBase 366;
275
276function DupLockFromFH(fh: LongInt location 'd1'): LongInt;
277SysCall AOS_DOSBase 372;
278
279function OpenFromLock(lock: LongInt location 'd1'): LongInt;
280SysCall AOS_DOSBase 378;
281
282function ParentOfFH(fh: LongInt location 'd1'): LongInt;
283SysCall AOS_DOSBase 384;
284
285function ExamineFH(fh : BPTR           location 'd1';
286                   fib: PFileInfoBlock location 'd2'): LongBool;
287SysCall AOS_DOSBase 390;
288
289function SetFileDate(name: PChar      location 'd1';
290                     date: PDateStamp location 'd2'): LongBool;
291SysCall AOS_DOSBase 396;
292
293function NameFromLock(lock  : LongInt location 'd1';
294                      buffer: PChar   location 'd2';
295                      len   : LongInt location 'd3'): LongBool;
296SysCall AOS_DOSBase 402;
297
298function NameFromFH(fh    : BPTR    location 'd1';
299                    buffer: PChar   location 'd2';
300                    len   : LongInt location 'd3'): LongBool;
301SysCall AOS_DOSBase 408;
302
303function SplitName(name     : PChar    location 'd1';
304                   separator: Cardinal location 'd2';
305                   buf      : PChar    location 'd3';
306                   oldpos   : LongInt  location 'd4';
307                   size     : LongInt  location 'd5'): SmallInt;
308SysCall AOS_DOSBase 414;
309
310function SameLock(lock1: LongInt location 'd1';
311                  lock2: LongInt location 'd2'): LongInt;
312SysCall AOS_DOSBase 420;
313
314function SetMode(fh  : LongInt location 'd1';
315                 mode: LongInt location 'd2'): LongInt;
316SysCall AOS_DOSBase 426;
317
318function ExAll(lock   : LongInt       location 'd1';
319               buffer : PExAllData    location 'd2';
320               size   : LongInt       location 'd3';
321               data   : LongInt       location 'd4';
322               control: PExAllControl location 'd5'): LongBool;
323SysCall AOS_DOSBase 432;
324
325function ReadLink(port  : PMsgPort location 'd1';
326                  lock  : LongInt  location 'd2';
327                  path  : PChar    location 'd3';
328                  buffer: PChar    location 'd4';
329                  size  : Cardinal location 'd5'): LongBool;
330SysCall AOS_DOSBase 438;
331
332function MakeLink(name: PChar   location 'd1';
333                  dest: LongInt location 'd2';
334                  soft: LongInt location 'd3'): LongBool;
335SysCall AOS_DOSBase 444;
336
337function ChangeMode(type1  : LongInt location 'd1';
338                    fh     : LongInt location 'd2';
339                    newmode: LongInt location 'd3'): LongBool;
340SysCall AOS_DOSBase 450;
341
342function SetFileSize(fh  : LongInt location 'd1';
343                     pos : LongInt location 'd2';
344                     mode: LongInt location 'd3'): LongInt;
345SysCall AOS_DOSBase 456;
346
347function SetIoErr(result: LongInt location 'd1'): LongInt;
348SysCall AOS_DOSBase 462;
349
350function Fault(code  : LongInt location 'd1';
351               header: PChar   location 'd2';
352               buffer: PChar   location 'd3';
353               len   : LongInt location 'd4'): LongBool;
354SysCall AOS_DOSBase 468;
355
356function PrintFault(code  : LongInt location 'd1';
357                    header: PChar   location 'd2'): LongBool;
358SysCall AOS_DOSBase 474;
359
360function ErrorReport(code  : LongInt  location 'd1';
361                     type1 : LongInt  location 'd2';
362                     arg1  : Cardinal location 'd3';
363                     device: PMsgPort location 'd4'): LongBool;
364SysCall AOS_DOSBase 480;
365
366function Cli: PCommandLineInterface;
367SysCall AOS_DOSBase 492;
368
369function CreateNewProc(tags: PTagItem location 'd1'): PProcess;
370SysCall AOS_DOSBase 498;
371
372function CreateNewProcTagList(tags: PTagItem location 'd1'): PProcess;
373SysCall AOS_DOSBase 498;
374
375function RunCommand(seg     : LongInt location 'd1';
376                    stack   : LongInt location 'd2';
377                    paramptr: PChar   location 'd3';
378                    paramlen: LongInt location 'd4'): LongInt;
379SysCall AOS_DOSBase 504;
380
381function GetConsoleTask: PMsgPort;
382SysCall AOS_DOSBase 510;
383
384function SetConsoleTask(task: PMsgPort location 'd1'): PMsgPort;
385SysCall AOS_DOSBase 516;
386
387function GetFileSysTask: PMsgPort;
388SysCall AOS_DOSBase 522;
389
390function SetFileSysTask(task: PMsgPort location 'd1'): PMsgPort;
391SysCall AOS_DOSBase 528;
392
393function GetArgStr: PChar;
394SysCall AOS_DOSBase 534;
395
396function SetArgStr(str: PChar location 'd1'): LongBool;
397SysCall AOS_DOSBase 540;
398
399function FindCliProc(num: Cardinal location 'd1'): PProcess;
400SysCall AOS_DOSBase 546;
401
402function MaxCli: Cardinal;
403SysCall AOS_DOSBase 552;
404
405function SetCurrentDirName(name: PChar location 'd1'): LongBool;
406SysCall AOS_DOSBase 558;
407
408function GetCurrentDirName(buf: PChar   location 'd1';
409                           len: LongInt location 'd2'): LongBool;
410SysCall AOS_DOSBase 564;
411
412function SetProgramName(name: PChar location 'd1'): LongBool;
413SysCall AOS_DOSBase 570;
414
415function GetProgramName(buf: PChar   location 'd1';
416                        len: LongInt location 'd2'): LongBool;
417SysCall AOS_DOSBase 576;
418
419function SetPrompt(name: PChar location 'd1'): LongBool;
420SysCall AOS_DOSBase 582;
421
422function GetPrompt(buf: PChar   location 'd1';
423                   len: LongInt location 'd2'): LongBool;
424SysCall AOS_DOSBase 588;
425
426function SetProgramDir(lock: LongInt location 'd1'): LongInt;
427SysCall AOS_DOSBase 594;
428
429function GetProgramDir: LongInt;
430SysCall AOS_DOSBase 600;
431
432function SystemTagList(command: PChar    location 'd1';
433                       tags   : PTagItem location 'd2'): LongInt;
434SysCall AOS_DOSBase 606;
435
436function dosSystem(command: PChar    location 'd1';
437                   tags   : PTagItem location 'd2'): LongInt;
438SysCall AOS_DOSBase 606;
439
440function AssignLock(name: PChar   location 'd1';
441                    lock: LongInt location 'd2'): LongBool;
442SysCall AOS_DOSBase 612;
443
444function AssignLate(name: PChar location 'd1';
445                    path: PChar location 'd2'): LongBool;
446SysCall AOS_DOSBase 618;
447
448function AssignPath(name: PChar location 'd1';
449                    path: PChar location 'd2'): LongBool;
450SysCall AOS_DOSBase 624;
451
452function AssignAdd(name: PChar   location 'd1';
453                   lock: LongInt location 'd2'): LongBool;
454SysCall AOS_DOSBase 630;
455
456function RemAssignList(name: PChar   location 'd1';
457                       lock: LongInt location 'd2'): LongBool;
458SysCall AOS_DOSBase 636;
459
460function GetDeviceProc(name: PChar    location 'd1';
461                       dp  : PDevProc location 'd2'): PDevProc;
462SysCall AOS_DOSBase 642;
463
464procedure FreeDeviceProc(dp: PDevProc location 'd1');
465SysCall AOS_DOSBase 648;
466
467function LockDosList(flags: Cardinal location 'd1'): PDosList;
468SysCall AOS_DOSBase 654;
469
470procedure UnLockDosList(flags: Cardinal location 'd1');
471SysCall AOS_DOSBase 660;
472
473function AttemptLockDosList(flags: Cardinal location 'd1'): PDosList;
474SysCall AOS_DOSBase 666;
475
476function RemDosEntry(dlist: PDosList location 'd1'): LongBool;
477SysCall AOS_DOSBase 672;
478
479function AddDosEntry(dlist: PDosList location 'd1'): LongInt;
480SysCall AOS_DOSBase 678;
481
482function FindDosEntry(dlist: PDosList location 'd1';
483                      name : PChar    location 'd2';
484                      flags: Cardinal location 'd3'): PDosList;
485SysCall AOS_DOSBase 684;
486
487function NextDosEntry(dlist: PDosList location 'd1';
488                      flags: Cardinal location 'd2'): PDosList;
489SysCall AOS_DOSBase 690;
490
491function MakeDosEntry(name : PChar   location 'd1';
492                      type1: LongInt location 'd2'): PDosList;
493SysCall AOS_DOSBase 696;
494
495procedure FreeDosEntry(dlist: PDosList location 'd1');
496SysCall AOS_DOSBase 702;
497
498function IsFileSystem(name: PChar location 'd1'): LongBool;
499SysCall AOS_DOSBase 708;
500
501function Format(filesystem: PChar    location 'd1';
502                volumename: PChar    location 'd2';
503                dostype   : Cardinal location 'd3'): LongBool;
504SysCall AOS_DOSBase 714;
505
506function Relabel(drive  : PChar location 'd1';
507                 newname: PChar location 'd2'): LongBool;
508SysCall AOS_DOSBase 720;
509
510function Inhibit(name : PChar   location 'd1';
511                 onoff: LongInt location 'd2'): LongBool;
512SysCall AOS_DOSBase 726;
513
514function AddBuffers(name  : PChar   location 'd1';
515                    number: LongInt location 'd2'): LongBool;
516SysCall AOS_DOSBase 732;
517
518function CompareDates(date1: PDateStamp location 'd1';
519                      date2: PDateStamp location 'd2'): LongInt;
520SysCall AOS_DOSBase 738;
521
522function DateToStr(datetime: _PDateTime location 'd1'): LongBool;
523SysCall AOS_DOSBase 744;
524
525function StrToDate(datetime: _PDateTime location 'd1'): LongBool;
526SysCall AOS_DOSBase 750;
527
528function InternalLoadSeg(fh           : LongInt location 'd0';
529                         table        : LongInt location 'a0';
530                         var funcarray: LongInt location 'a1';
531                         var stack    : LongInt location 'a2'): LongInt;
532SysCall AOS_DOSBase 756;
533
534function NewLoadSeg(file1: PChar    location 'd1';
535                    tags : PTagItem location 'd2'): LongInt;
536SysCall AOS_DOSBase 768;
537
538function NewLoadSegTagList(file1: PChar    location 'd1';
539                           tags : PTagItem location 'd2'): LongInt;
540SysCall AOS_DOSBase 768;
541
542function AddSegment(name  : PChar   location 'd1';
543                    seg   : LongInt location 'd2';
544                    system: LongInt location 'd3'): LongBool;
545SysCall AOS_DOSBase 774;
546
547function FindSegment(name  : PChar    location 'd1';
548                     seg   : PSegment location 'd2';
549                     system: LongInt  location 'd3'): PSegment;
550SysCall AOS_DOSBase 780;
551
552function RemSegment(seg: PSegment location 'd1'): LongBool;
553SysCall AOS_DOSBase 786;
554
555function CheckSignal(mask: LongInt location 'd1'): LongInt;
556SysCall AOS_DOSBase 792;
557
558function ReadArgs(arg_template: PChar   location 'd1';
559                  var array1  : LongInt location 'd2';
560                  args        : PRDArgs location 'd3'): PRDArgs;
561SysCall AOS_DOSBase 798;
562
563function FindArg(keyword     : PChar location 'd1';
564                 arg_template: PChar location 'd2'): LongInt;
565SysCall AOS_DOSBase 804;
566
567function ReadItem(name    : PChar    location 'd1';
568                  maxchars: LongInt  location 'd2';
569                  cSource : PCSource location 'd3'): LongInt;
570SysCall AOS_DOSBase 810;
571
572function StrToLong(string1  : PChar   location 'd1';
573                   var value: LongInt location 'd2'): LongInt;
574SysCall AOS_DOSBase 816;
575
576function MatchFirst(pat   : PChar       location 'd1';
577                    anchor: PAnchorPath location 'd2'): LongInt;
578SysCall AOS_DOSBase 822;
579
580function MatchNext(anchor: PAnchorPath location 'd1'): LongInt;
581SysCall AOS_DOSBase 828;
582
583procedure MatchEnd(anchor: PAnchorPath location 'd1');
584SysCall AOS_DOSBase 834;
585
586function ParsePattern(pat   : PChar   location 'd1';
587                      buf   : PChar   location 'd2';
588                      buflen: LongInt location 'd3'): LongInt;
589SysCall AOS_DOSBase 840;
590
591function MatchPattern(pat: PChar location 'd1';
592                      str: PChar location 'd2'): LongBool;
593SysCall AOS_DOSBase 846;
594
595procedure FreeArgs(args: pRDArgs location 'd1');
596SysCall AOS_DOSBase 858;
597
598function FilePart(path: PChar location 'd1'): PChar;
599SysCall AOS_DOSBase 870;
600
601function PathPart(path: PChar location 'd1'): PChar;
602SysCall AOS_DOSBase 876;
603
604function AddPart(dirname: PChar    location 'd1';
605                filename: PChar    location 'd2';
606                size    : Cardinal location 'd3'): LongBool;
607SysCall AOS_DOSBase 882;
608
609function StartNotify(notify: PNotifyRequest location 'd1'): LongBool;
610SysCall AOS_DOSBase 888;
611
612procedure EndNotify(notify: PNotifyRequest location 'd1');
613SysCall AOS_DOSBase 894;
614
615function SetVar(name  : PChar   location 'd1';
616                buffer: PChar   location 'd2';
617                size  : LongInt location 'd3';
618                flags : LongInt location 'd4'): LongBool;
619SysCall AOS_DOSBase 900;
620
621function GetVar(name  : PChar   location 'd1';
622                buffer: PChar   location 'd2';
623                size  : LongInt location 'd3';
624                flags : LongInt location 'd4'): LongInt;
625SysCall AOS_DOSBase 906;
626
627function DeleteVar(name : PChar    location 'd1';
628                   flags: Cardinal location 'd2'): LongBool;
629SysCall AOS_DOSBase 912;
630
631function FindVar(name : PChar    location 'd1';
632                 type1: Cardinal location 'd2'): PLocalVar;
633SysCall AOS_DOSBase 918;
634
635function CliInitNewcli(dp: PDosPacket location 'a0'): LongInt;
636SysCall AOS_DOSBase 930;
637
638function CliInitRun(dp: PDosPacket location 'a0'): LongInt;
639SysCall AOS_DOSBase 936;
640
641function WriteChars(buf   : PChar    location 'd1';
642                    buflen: Cardinal location 'd2'): LongInt;
643SysCall AOS_DOSBase 942;
644
645function PutStr(str: PChar location 'd1'): LongInt;
646SysCall AOS_DOSBase 948;
647
648function VPrintf(format  : PChar   location 'd1';
649                 argarray: Pointer location 'd2'): LongInt;
650SysCall AOS_DOSBase 954;
651
652function ParsePatternNoCase(pat   : PChar   location 'd1';
653                            buf   : PChar   location 'd2';
654                            buflen: LongInt location 'd3'): LongInt;
655SysCall AOS_DOSBase 966;
656
657function MatchPatternNoCase(pat: PChar location 'd1';
658                            str: PChar location 'd2'): LongBool;
659SysCall AOS_DOSBase 972;
660
661function SameDevice(lock1: LongInt location 'd1';
662                    lock2: LongInt location 'd2'): LongBool;
663SysCall AOS_DOSBase 984;
664
665procedure ExAllEnd(lock   : LongInt       location 'd1';
666                   buffer : PExAllData    location 'd2';
667                   size   : LongInt       location 'd3';
668                   data   : LongInt       location 'd4';
669                   control: PExAllControl location 'd5');
670SysCall AOS_DOSBase 990;
671
672function SetOwner(name      : PChar   location 'd1';
673                  owner_info: LongInt location 'd2'): LongBool;
674SysCall AOS_DOSBase 996;
675
676function AddSegmentTagList(tags: PTagItem location 'a0'): LongInt;
677SysCall AOS_DOSBase 1002;
678
679function FindSegmentTagList(tags: PTagItem location 'a0'): PSegment;
680SysCall AOS_DOSBase 1008;
681
682
683
684