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