home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / DosL.def < prev    next >
Text File  |  1996-06-15  |  18KB  |  494 lines
  1. (**************************************************************************)
  2. (*                                                                        *)
  3. (* Definition Module DosL.def by Marcel Timmermans.                       *)
  4. (* Date     : 21 Feb 1994                                                 *)
  5. (* Language : Modula-2                                                    *)
  6. (*                                                                        *)
  7. (**************************************************************************)
  8.  
  9. DEFINITION MODULE DosL {"dos.library", 33};
  10.  
  11. FROM SYSTEM IMPORT ADDRESS,LONGSET;
  12.  
  13. FROM ExecD IMPORT
  14.  MsgPortPtr,BPTR;
  15.  
  16. FROM UtilityD IMPORT
  17.  TagItemPtr;
  18.  
  19. IMPORT
  20.  DosD,Reg;
  21.  
  22. VAR
  23.  dosBase:DosD.DosLibraryPtr;
  24.  
  25. CONST
  26.  dosMinVersion=33;
  27.  dosName="dos.library";
  28.  
  29. PROCEDURE AbortPkt(port{Reg.D1}:DosD.ProcessId;
  30.                  pkt{Reg.D2}:DosD.DosPacketPtr); CODE -264;
  31.  
  32. PROCEDURE AddBuffers(name{Reg.D1}:DosD.StrPtr;
  33.                  number{Reg.D2}:LONGINT):BOOLEAN; CODE -732;
  34.  
  35. PROCEDURE AddDosEntry(dlist{Reg.D1}:DosD.DosListPtr):BOOLEAN; CODE -678;
  36.  
  37. PROCEDURE AddPart(dirname{Reg.D1}:DosD.StrPtr;
  38.                  filename{Reg.D2}:DosD.StrPtr;
  39.                  size{Reg.D3}:LONGINT):BOOLEAN; CODE -882;
  40.  
  41. PROCEDURE AddSegment(name{Reg.D1}:DosD.StrPtr;
  42.                  seg{Reg.D2}:DosD.SegmentPtr;
  43.                  system{Reg.D3}:LONGINT):BOOLEAN; CODE -774;
  44.  
  45. PROCEDURE AllocDosObject(type{Reg.D1}:LONGCARD;
  46.                  tags{Reg.D2}:TagItemPtr):ADDRESS; CODE -228;
  47.  
  48. PROCEDURE AssignAdd(name{Reg.D1}:DosD.StrPtr;
  49.                  lock{Reg.D2}:DosD.FileLockPtr):BOOLEAN; CODE -630;
  50.  
  51. PROCEDURE AssignLate(name{Reg.D1}:DosD.StrPtr;
  52.                  path{Reg.D2}:DosD.StrPtr):BOOLEAN; CODE -618;
  53.  
  54. PROCEDURE AssignLock(name{Reg.D1}:DosD.StrPtr;
  55.                  lock{Reg.D2}:DosD.FileLockPtr):BOOLEAN; CODE -612;
  56.  
  57. PROCEDURE AssignPath(name{Reg.D1}:DosD.StrPtr;
  58.                  path{Reg.D2}:DosD.StrPtr):BOOLEAN; CODE -624;
  59.  
  60. PROCEDURE AttemptLockDosList(
  61.             flags{Reg.D1}:DosD.LockDosFlagSet):DosD.DosListPtr ; CODE -666;
  62.  
  63. PROCEDURE ChangeMode(type{Reg.D1}:LONGCARD;
  64.                  object{Reg.D2}:BPTR;
  65.                  newmode{Reg.D3}:LONGINT):BOOLEAN; CODE -450;
  66.  
  67. PROCEDURE CheckSignal(mask{Reg.D1}:LONGSET):LONGSET; CODE -792;
  68.  
  69. PROCEDURE Cli():DosD.CommandLineInterfaceAPtr; CODE -492;
  70.  
  71. PROCEDURE CliInitNewcli(
  72.               dp{Reg.A0}:DosD.DosPacketPtr):LONGSET; CODE -930;
  73.  
  74. PROCEDURE CliInitRun(
  75.               dp{Reg.A0}:DosD.DosPacketPtr):LONGSET; CODE -936;
  76.  
  77. PROCEDURE Close(file{Reg.D1}:DosD.FileHandlePtr); CODE -36;
  78.  
  79. PROCEDURE CloseB(file{Reg.D1}:DosD.FileHandlePtr):BOOLEAN; CODE -36;
  80.  
  81. PROCEDURE CompareDates(date1{Reg.D1},
  82.                        date2{Reg.D2}:DosD.DatePtr):LONGINT; CODE -738;
  83.  
  84. PROCEDURE CreateDir(name{Reg.D1}:DosD.StrPtr):DosD.FileLockPtr; CODE -120;
  85.  
  86. PROCEDURE CreateNewProc(tags{Reg.D1}:TagItemPtr):DosD.ProcessPtr; CODE -498;
  87.  
  88. PROCEDURE CreateProc(name{Reg.D1}:DosD.StrPtr;
  89.            pri{Reg.D2}:LONGINT;
  90.            segList{Reg.D3}:BPTR;
  91.            stackSize{Reg.D4}:LONGINT):DosD.ProcessId; CODE -138;
  92.  
  93. PROCEDURE CurrentDir(lock{Reg.D1}:DosD.FileLockPtr):DosD.FileLockPtr; CODE -126;
  94.  
  95. PROCEDURE DateStamp(v{Reg.D1}:DosD.DatePtr); CODE -192;
  96.  
  97. PROCEDURE DateToStr(datetime{Reg.D1}:DosD.DateTimePtr):LONGINT; CODE -744;
  98.  
  99. PROCEDURE Delay(ticks{Reg.D1}:LONGINT); CODE -198;
  100.  
  101. PROCEDURE DeleteFile(name{Reg.D1}:DosD.StrPtr):BOOLEAN; CODE -72;
  102.  
  103. PROCEDURE DeleteVar(name{Reg.D1}:DosD.StrPtr;
  104.                  flags{Reg.D2}:DosD.VarFlagSet):BOOLEAN; CODE -912;
  105.  
  106. PROCEDURE DeviceProc(name{Reg.D1}:DosD.StrPtr):DosD.ProcessId; CODE -174;
  107.  
  108. PROCEDURE DoPkt(port{Reg.D1}:DosD.ProcessId;
  109.                 action{Reg.D2}:LONGINT;
  110.                 arg1{Reg.D3},arg2{Reg.D4},arg3{Reg.D5}:LONGINT;
  111.                 arg4{Reg.D6},arg5{Reg.D7}:LONGINT):LONGINT; CODE -240;
  112.  
  113. PROCEDURE DupLock(lock{Reg.D1}:DosD.FileLockPtr):DosD.FileLockPtr; CODE -96;
  114.  
  115. PROCEDURE DupLockFromFH(
  116.              fh{Reg.D1}:DosD.FileHandlePtr):DosD.FileLockPtr; CODE -372;
  117.  
  118. PROCEDURE EndNotify(VAR notify{Reg.D1}:DosD.NotifyRequest); CODE -894;
  119.  
  120. PROCEDURE ErrorReport(code{Reg.D1}:LONGINT;
  121.                  type{Reg.D2}:LONGINT;
  122.                  arg1{Reg.D3}:LONGCARD;
  123.                  device{Reg.D4}:DosD.ProcessId):BOOLEAN; CODE -480;
  124.  
  125. PROCEDURE ExAll(lock{Reg.D1}:DosD.FileLockPtr;
  126.                 buffer{Reg.D2}:ADDRESS;
  127.                 size{Reg.D3}:LONGINT;
  128.                 type{Reg.D4}:LONGINT;
  129.                 control{Reg.D5}:DosD.ExAllControlPtr):BOOLEAN; CODE -432;
  130.  
  131. PROCEDURE ExAllEnd(lock{Reg.D1}:DosD.FileLockPtr;
  132.                    buffer{Reg.D2}:ADDRESS;
  133.                    size{Reg.D3}:LONGINT;
  134.                    type{Reg.D4}:LONGINT;
  135.                    control{Reg.D5}:DosD.ExAllControlPtr):LONGINT; CODE -990;
  136.  
  137. PROCEDURE Examine(lock{Reg.D1}:DosD.FileLockPtr;
  138.            infoBlock{Reg.D2}:DosD.FileInfoBlockPtr):BOOLEAN; CODE -102;
  139.  
  140. PROCEDURE ExamineFH(fh{Reg.D1}:DosD.FileHandlePtr;
  141.                  fib{Reg.D2}:DosD.FileInfoBlockPtr):BOOLEAN; CODE -390;
  142.  
  143. PROCEDURE Execute(commandString{Reg.D1}:DosD.StrPtr;
  144.            input{Reg.D2}:DosD.FileHandlePtr;
  145.            output{Reg.D3}:DosD.FileHandlePtr):LONGINT; CODE -222;
  146.  
  147. PROCEDURE Exit(returnCode{Reg.D1}:LONGINT); CODE -144;
  148.  
  149. PROCEDURE ExNext(lock{Reg.D1}:DosD.FileLockPtr;
  150.            infoBlock{Reg.D2}:DosD.FileInfoBlockPtr):BOOLEAN; CODE -108;
  151.  
  152. PROCEDURE Fault(code{Reg.D1}:LONGINT;
  153.                 header{Reg.D2}:DosD.StrPtr;
  154.                 buffer{Reg.D3}:DosD.StrPtr;
  155.                 len{Reg.D4}:LONGINT):BOOLEAN; CODE -468;
  156.  
  157. PROCEDURE FGetC(fh{Reg.D1}:DosD.FileHandlePtr):LONGINT; CODE -306;
  158.  
  159. PROCEDURE FGets(fh{Reg.D1}:DosD.FileHandlePtr;
  160.                 buf{Reg.D2}:ADDRESS;
  161.                 buflen{Reg.D3}:LONGCARD):DosD.StrPtr; CODE -336;
  162.  
  163. PROCEDURE FilePart(path{Reg.D1}:DosD.StrPtr):DosD.StrPtr; CODE -870;
  164.  
  165. PROCEDURE FindArg(keyword{Reg.D1}:DosD.StrPtr;
  166.                   template{Reg.D2}:DosD.StrPtr):LONGINT; CODE -804;
  167.  
  168. PROCEDURE FindCliProc(num{Reg.D1}:LONGINT):DosD.ProcessPtr; CODE -546;
  169.  
  170. PROCEDURE FindDosEntry(dlist{Reg.D1}:DosD.DosListPtr;
  171.                  name{Reg.D2}:DosD.StrPtr;
  172.                  flags{Reg.D3}:DosD.LockDosFlagSet):DosD.DosListPtr; CODE -684;
  173.  
  174. PROCEDURE FindSegment(name{Reg.D1}:DosD.StrPtr;
  175.                  seg{Reg.D2}:DosD.SegmentPtr;
  176.                  system{Reg.D3}:BOOLEAN):DosD.SegmentPtr; CODE -780;
  177.  
  178. PROCEDURE FindVar(name{Reg.D1}:DosD.StrPtr;
  179.                  type{Reg.D2}:DosD.VarFlagSet):DosD.LocalVarPtr; CODE -918;
  180.  
  181. PROCEDURE Flush(fh{Reg.D1}:DosD.FileHandlePtr):BOOLEAN; CODE -360;
  182.  
  183. PROCEDURE Format(filesystem{Reg.D1}:DosD.StrPtr;
  184.                  volumename{Reg.D2}:DosD.StrPtr;
  185.                  dostype{Reg.D3}:LONGINT):BOOLEAN; CODE -714;
  186.  
  187. PROCEDURE FPutC(fh{Reg.D1}:DosD.FileHandlePtr;
  188.                 ch{Reg.D2}:LONGINT):LONGINT; CODE -312;
  189.  
  190. PROCEDURE FPuts(fh{Reg.D1}:DosD.FileHandlePtr;
  191.                 str{Reg.D2}:DosD.StrPtr):BOOLEAN; CODE -342;
  192.  
  193. PROCEDURE FRead(fh{Reg.D1}:DosD.FileHandlePtr;
  194.                 buf{Reg.D2}:ADDRESS;
  195.                 blocklen{Reg.D3}:LONGCARD;
  196.                 blocks{Reg.D4}:LONGCARD):LONGINT; CODE -324;
  197.  
  198. PROCEDURE FreeArgs(args{Reg.D1}:DosD.RDArgsPtr); CODE -858;
  199.  
  200. PROCEDURE FreeDeviceProc(devproc{Reg.D1}:DosD.DevProcPtr); CODE -648;
  201.  
  202. PROCEDURE FreeDosEntry(dlist{Reg.D1}:DosD.DosListPtr); CODE -702;
  203.  
  204. PROCEDURE FreeDosObject(type{Reg.D1}:LONGCARD;
  205.                  ptr{Reg.D2}:ADDRESS); CODE -234;
  206.  
  207. PROCEDURE FWrite(fh{Reg.D1}:DosD.FileHandlePtr;
  208.                  buf{Reg.D2}:ADDRESS;
  209.                  blocklen{Reg.D3}:LONGCARD;
  210.                  blocks{Reg.D4}:LONGCARD):LONGINT; CODE -330;
  211.  
  212. PROCEDURE GetArgStr():DosD.StrPtr; CODE -534;
  213.  
  214. PROCEDURE GetConsoleTask():DosD.ProcessId; CODE -510;
  215.  
  216. PROCEDURE GetCurrentDirName(buf{Reg.D1}:DosD.StrPtr;
  217.                  len{Reg.D2}:LONGINT):BOOLEAN; CODE -564;
  218.  
  219. PROCEDURE GetDeviceProc(name{Reg.D1}:DosD.StrPtr;
  220.                  devproc{Reg.D2}:DosD.DevProcPtr):DosD.DevProcPtr; CODE -642;
  221.  
  222. PROCEDURE GetFileSysTask():DosD.ProcessId; CODE -522;
  223.  
  224. PROCEDURE GetProgramDir():DosD.FileLockPtr; CODE -600;
  225.  
  226. PROCEDURE GetProgramName(buf{Reg.D1}:DosD.StrPtr;
  227.                  len{Reg.D2}:LONGINT):BOOLEAN; CODE -576;
  228.  
  229. PROCEDURE GetPrompt(buf{Reg.D1}:DosD.StrPtr;
  230.                  len{Reg.D2}:LONGINT):BOOLEAN; CODE -588;
  231.  
  232. PROCEDURE GetVar(name{Reg.D1}:DosD.StrPtr;
  233.                  buffer{Reg.D2}:DosD.StrPtr;
  234.                  size{Reg.D3}:LONGINT;
  235.                  flags{Reg.D4}:DosD.VarFlagSet):LONGINT; CODE -906;
  236.  
  237. PROCEDURE Info(lock{Reg.D1}:DosD.FileLockPtr;
  238.            parameterBlock{Reg.D2}:DosD.InfoDataPtr):BOOLEAN; CODE -114;
  239.  
  240. PROCEDURE Inhibit(name{Reg.D1}:DosD.StrPtr;
  241.                  onoff{Reg.D2}:BOOLEAN):BOOLEAN; CODE -726;
  242.  
  243. PROCEDURE Input():DosD.FileHandlePtr; CODE -54;
  244.  
  245. PROCEDURE IoErr():LONGINT; CODE -132;
  246.  
  247. PROCEDURE IsFileSystem(name{Reg.D1}:DosD.StrPtr):BOOLEAN; CODE -708;
  248.  
  249. PROCEDURE IsInteractive(file{Reg.D1}:DosD.FileHandlePtr):BOOLEAN; CODE -216;
  250.  
  251. PROCEDURE LoadSeg(name{Reg.D1}:DosD.StrPtr):BPTR; CODE -150;
  252.  
  253. PROCEDURE Lock(name{Reg.D1}:DosD.StrPtr;
  254.            accessMode{Reg.D2}:LONGINT):DosD.FileLockPtr; CODE -84;
  255.  
  256. PROCEDURE LockDosList(flags{Reg.D1}:DosD.LockDosFlagSet):DosD.DosListPtr; CODE -654;
  257.  
  258. PROCEDURE LockRecord(fh{Reg.D1}:DosD.FileHandlePtr;
  259.                  offset{Reg.D2},length{Reg.D3}:LONGCARD;
  260.                  mode{Reg.D4},timeout{Reg.D5}:LONGCARD):BOOLEAN; CODE -270;
  261.  
  262. PROCEDURE LockRecords(recArr{Reg.D1}:DosD.RecordLockPtr;
  263.                  timeout{Reg.D2}:LONGCARD):BOOLEAN; CODE -276;
  264.  
  265. PROCEDURE MakeDosEntry(name{Reg.D1}:DosD.StrPtr;
  266.                  type{Reg.D2}:LONGINT):DosD.DosListPtr; CODE -696;
  267.  
  268. PROCEDURE MakeLink(name{Reg.D1}:DosD.StrPtr;
  269.                  dest{Reg.D2}:LONGCARD;
  270.                  soft{Reg.D3}:BOOLEAN):LONGINT; CODE -444;
  271.  
  272. PROCEDURE MakeHardLink(name{Reg.D1}:DosD.StrPtr;
  273.                  dest{Reg.D2}:DosD.FileLockPtr;
  274.                  soft{Reg.D3}:BOOLEAN):LONGINT; CODE -444;
  275.  
  276. PROCEDURE MakeSoftLink(name{Reg.D1}:DosD.StrPtr;
  277.                  dest{Reg.D2}:DosD.StrPtr;
  278.                  soft{Reg.D3}:BOOLEAN):LONGINT; CODE -444;
  279.  
  280. PROCEDURE MatchEnd(VAR anchor{Reg.D1}:DosD.AnchorPath); CODE -834;
  281.  
  282. PROCEDURE MatchFirst(pat{Reg.D1}:DosD.StrPtr;
  283.                  VAR anchor{Reg.D2}:DosD.AnchorPath):LONGINT; CODE -822;
  284.  
  285. PROCEDURE MatchNext(VAR anchor{Reg.D1}:DosD.AnchorPath):LONGINT; CODE -828;
  286.  
  287. PROCEDURE MatchPattern(pat{Reg.D1}:DosD.StrPtr;
  288.                  str{Reg.D2}:DosD.StrPtr):BOOLEAN; CODE -846;
  289.  
  290. PROCEDURE MatchPatternNoCase(
  291.                  pat{Reg.D1}:DosD.StrPtr;
  292.                  str{Reg.D2}:DosD.StrPtr):BOOLEAN; CODE -972;
  293.  
  294. PROCEDURE MaxCli():LONGINT; CODE -552;
  295.  
  296. PROCEDURE NameFromFH(fh{Reg.D1}:DosD.FileHandlePtr;
  297.                  buffer{Reg.D2}:DosD.StrPtr;
  298.                  len{Reg.D3}:LONGINT):BOOLEAN; CODE -408;
  299.  
  300. PROCEDURE NameFromLock(lock{Reg.D1}:DosD.FileLockPtr;
  301.                  buffer{Reg.D2}:DosD.StrPtr;
  302.                  len{Reg.D3}:LONGINT):BOOLEAN; CODE -402;
  303.  
  304. PROCEDURE NewLoadSeg(file{Reg.D1}:DosD.StrPtr;
  305.                  tags{Reg.D2}:TagItemPtr):BPTR; CODE -768;
  306.  
  307. PROCEDURE NextDosEntry(dlist{Reg.D1}:DosD.DosListPtr;
  308.                  flags{Reg.D2}:DosD.LockDosFlagSet):DosD.DosListPtr; CODE -690;
  309.  
  310. PROCEDURE Open(name{Reg.D1}:DosD.StrPtr;
  311.            accessMode{Reg.D2}:LONGINT):DosD.FileHandlePtr; CODE -30;
  312.  
  313. PROCEDURE OpenFromLock(
  314.                  lock{Reg.D1}:DosD.FileLockPtr):DosD.FileHandlePtr; CODE -378;
  315.  
  316. PROCEDURE Output():DosD.FileHandlePtr; CODE -60;
  317.  
  318. PROCEDURE ParentDir(lock{Reg.D1}:DosD.FileLockPtr):DosD.FileLockPtr; CODE -210;
  319.  
  320. PROCEDURE ParentOfFH(fh{Reg.D1}:DosD.FileHandlePtr):DosD.FileLockPtr; CODE -384;
  321.  
  322. PROCEDURE ParsePattern(pat{Reg.D1}:DosD.StrPtr;
  323.                  buf{Reg.D2}:DosD.StrPtr;
  324.                  buflen{Reg.D3}:LONGINT):LONGINT; CODE -840;
  325.  
  326. PROCEDURE ParsePatternNoCase(pat{Reg.D1}:DosD.StrPtr;
  327.                  buf{Reg.D2}:DosD.StrPtr;
  328.                  buflen{Reg.D3}:LONGINT):LONGINT; CODE -966;
  329.  
  330. PROCEDURE PathPart(path{Reg.D1}:DosD.StrPtr):DosD.StrPtr; CODE -876;
  331.  
  332. PROCEDURE PrintFault(code{Reg.D1}:LONGINT;
  333.                  header{Reg.D2}:DosD.StrPtr):BOOLEAN; CODE -474;
  334.  
  335. PROCEDURE PutStr(str{Reg.D1}:DosD.StrPtr):BOOLEAN; CODE -948;
  336.  
  337. PROCEDURE Read(file{Reg.D1}:DosD.FileHandlePtr;
  338.            buffer{Reg.D2}:ADDRESS;
  339.            length{Reg.D3}:LONGINT):LONGINT; CODE -42;
  340.  
  341. PROCEDURE ReadArgs(template{Reg.D1}:DosD.StrPtr;
  342.                  array{Reg.D2}:ADDRESS;
  343.                  args{Reg.D3}:DosD.RDArgsPtr):DosD.RDArgsPtr; CODE -798;
  344.  
  345. PROCEDURE ReadItem(name{Reg.D1}:DosD.StrPtr;
  346.                  maxchars{Reg.D2}:LONGINT;
  347.                  cSource{Reg.D3}:DosD.CSourcePtr):LONGINT; CODE -810;
  348.  
  349. PROCEDURE ReadLink(port{Reg.D1}:DosD.ProcessId;
  350.                  lock{Reg.D2}:DosD.FileLockPtr;
  351.                  path{Reg.D3}:DosD.StrPtr;
  352.                  buffer{Reg.D4}:DosD.StrPtr;
  353.                  buffSize{Reg.D5}:LONGCARD):BOOLEAN; CODE -438;
  354.  
  355. PROCEDURE Relabel(drive{Reg.D1}:DosD.StrPtr;
  356.                  newname{Reg.D2}:DosD.StrPtr):BOOLEAN; CODE -720;
  357.  
  358. PROCEDURE RemAssignList(name{Reg.D1}:DosD.StrPtr;
  359.                  lock{Reg.D2}:DosD.FileLockPtr):BOOLEAN; CODE -636;
  360.  
  361. PROCEDURE RemDosEntry(dlist{Reg.D1}:DosD.DosListPtr):BOOLEAN; CODE -672;
  362.  
  363. PROCEDURE RemSegment(seg{Reg.D1}:DosD.SegmentPtr):BOOLEAN; CODE -786;
  364.  
  365. PROCEDURE Rename(oldName{Reg.D1},newName{Reg.D2}:DosD.StrPtr):BOOLEAN; CODE -78;
  366.  
  367. PROCEDURE ReplyPkt(dp{Reg.D1}:DosD.DosPacketPtr;
  368.                  res1{Reg.D2},res2{Reg.D3}:LONGINT); CODE -258;
  369.  
  370. PROCEDURE RunCommand(seg{Reg.D1}:BPTR;
  371.                  stacksize{Reg.D2}:LONGINT;
  372.                  paramptr{Reg.D3}:DosD.StrPtr;
  373.                  paramlen{Reg.D4}:LONGINT):LONGINT; CODE -504;
  374.  
  375. PROCEDURE SameDevice(lock1{Reg.D1}:DosD.FileLockPtr;
  376.                  lock2{Reg.D2}:DosD.FileLockPtr):BOOLEAN; CODE -984;
  377.  
  378. PROCEDURE SameLock(lock1{Reg.D1}:DosD.FileLockPtr;
  379.                  lock2{Reg.D2}:DosD.FileLockPtr):LONGINT; CODE -420;
  380.  
  381. PROCEDURE Seek(file{Reg.D1}:DosD.FileHandlePtr;
  382.            position{Reg.D2}:LONGINT;
  383.            mode{Reg.D3}:LONGINT):LONGINT; CODE -66;
  384.  
  385. PROCEDURE SelectInput(fh{Reg.D1}:DosD.FileHandlePtr):DosD.FileHandlePtr; CODE -294;
  386.  
  387. PROCEDURE SelectOutput(fh{Reg.D1}:DosD.FileHandlePtr):DosD.FileHandlePtr; CODE -300;
  388.  
  389. PROCEDURE SendPkt(dp{Reg.D1}:DosD.ProcessId;
  390.                  port{Reg.D2}:MsgPortPtr;
  391.                  replyport{Reg.D3}:MsgPortPtr); CODE -246;
  392.  
  393. PROCEDURE SetArgStr(string{Reg.D1}:DosD.StrPtr):DosD.StrPtr; CODE -540;
  394.  
  395. PROCEDURE SetComment(name{Reg.D1},comment{Reg.D2}:DosD.StrPtr):BOOLEAN; CODE -180;
  396.  
  397. PROCEDURE SetConsoleTask(task{Reg.D1}:DosD.ProcessId):DosD.ProcessId; CODE -516;
  398.  
  399. PROCEDURE SetCurrentDirName(name{Reg.D1}:DosD.StrPtr):BOOLEAN; CODE -558;
  400.  
  401. PROCEDURE SetFileDate(name{Reg.D1}:DosD.StrPtr;
  402.                  date{Reg.D2}:DosD.DatePtr):BOOLEAN; CODE -396;
  403.  
  404. PROCEDURE SetFileSize(fh{Reg.D1}:DosD.FileHandlePtr;
  405.                  pos{Reg.D2},mode{Reg.D3}:LONGINT):LONGINT; CODE -456;
  406.  
  407. PROCEDURE SetFileSysTask(task{Reg.D1}:DosD.ProcessId):DosD.ProcessId; CODE -528;
  408.  
  409. PROCEDURE SetIoErr(result{Reg.D1}:LONGINT):LONGINT; CODE -462;
  410.  
  411. PROCEDURE SetMode(fh{Reg.D1}:DosD.FileHandlePtr;
  412.                  mode{Reg.D2}:LONGINT):BOOLEAN; CODE -426;
  413.  
  414. PROCEDURE SetOwner(name{Reg.D1}:DosD.StrPtr;
  415.                  ownerInfo{Reg.D2}:LONGCARD):BOOLEAN; CODE -996;
  416.  
  417. PROCEDURE SetProgramDir(lock{Reg.D1}:DosD.FileLockPtr):DosD.FileLockPtr; CODE -594;
  418.  
  419. PROCEDURE SetProgramName(name{Reg.D1}:DosD.StrPtr):BOOLEAN; CODE -570;
  420.  
  421. PROCEDURE SetPrompt(name{Reg.D1}:DosD.StrPtr):BOOLEAN; CODE -582;
  422.  
  423. PROCEDURE SetProtection(name{Reg.D1}:DosD.StrPtr;
  424.            mask{Reg.D2}:DosD.ProtectionMask):BOOLEAN; CODE -186;
  425.  
  426. PROCEDURE SetVar(name{Reg.D1}:DosD.StrPtr;
  427.                  buffer{Reg.D2}:DosD.StrPtr;
  428.                  size{Reg.D3}:LONGINT;
  429.                  flags{Reg.D4}:DosD.VarFlagSet):BOOLEAN; CODE -900;
  430.  
  431. PROCEDURE SetVBuf(fh{Reg.D1}:DosD.FileHandlePtr;
  432.                  buff{Reg.D2}:ADDRESS;
  433.                  type{Reg.D3}:LONGINT;
  434.                  size{Reg.D4}:LONGINT):BOOLEAN; CODE -366;
  435.  
  436. PROCEDURE SplitName(name{Reg.D1}:DosD.StrPtr;
  437.                  seperator{Reg.D2}:CHAR;
  438.                  buf{Reg.D3}:ADDRESS;
  439.                  oldpos{Reg.D4}:LONGINT;
  440.                  size{Reg.D5}:LONGINT):LONGINT; CODE -414;
  441.  
  442. PROCEDURE StartNotify(VAR notify{Reg.D1}:DosD.NotifyRequest):BOOLEAN; CODE -888;
  443.  
  444. PROCEDURE StrToDate(datetime{Reg.D1}:DosD.DateTimePtr):LONGINT; CODE -750;
  445.  
  446. PROCEDURE StrToLong(string{Reg.D1}:DosD.StrPtr;
  447.                  VAR value{Reg.D2}:LONGINT):LONGINT; CODE -816;
  448.  
  449. PROCEDURE System(command{Reg.D1}:DosD.StrPtr;
  450.                  tags{Reg.D2}:TagItemPtr):LONGINT; CODE -606;
  451.  
  452. PROCEDURE SystemTagList(command{Reg.D1}:DosD.StrPtr;
  453.                  tags{Reg.D2}:TagItemPtr):LONGINT; CODE -606;
  454.  
  455. PROCEDURE UnGetC(fh{Reg.D1}:DosD.FileHandlePtr;
  456.                  character{Reg.D2}:LONGINT):LONGINT; CODE -318;
  457.  
  458. PROCEDURE UnLoadSeg(segment{Reg.D1}:DosD.SegmentPtr); CODE -156;
  459.  
  460. PROCEDURE UnLock(lock{Reg.D1}:DosD.FileLockPtr); CODE -90;
  461.  
  462. PROCEDURE UnlockDosList(flags{Reg.D1}:DosD.LockDosFlagSet); CODE -660;
  463.  
  464. PROCEDURE UnLockRecord(fh{Reg.D1}:DosD.FileHandlePtr;
  465.                  offset{Reg.D2},length{Reg.D3}:LONGCARD):BOOLEAN; CODE -282;
  466.  
  467. PROCEDURE UnLockRecords(recArr{Reg.D1}:DosD.RecordLockPtr):BOOLEAN; CODE -288;
  468.  
  469. PROCEDURE VFPrintf(fh{Reg.D1}:DosD.FileHandlePtr;
  470.                  format{Reg.D2}:DosD.StrPtr;
  471.                  argarray{Reg.D3}:ADDRESS):LONGINT; CODE -354;
  472.  
  473. PROCEDURE VFWritef(fh{Reg.D1}:DosD.FileHandlePtr;
  474.                  format{Reg.D2}:DosD.StrPtr;
  475.                  argarray{Reg.D3}:ADDRESS):LONGINT; CODE -348;
  476.  
  477. PROCEDURE VPrintf(format{Reg.D1}:DosD.StrPtr;
  478.                  argarray{Reg.D2}:ADDRESS):LONGINT; CODE -954;
  479.  
  480. PROCEDURE WaitForChar(file{Reg.D1}:DosD.FileHandlePtr;
  481.            timeout{Reg.D2}:LONGINT):BOOLEAN; CODE -204;
  482.  
  483. PROCEDURE WaitPkt():DosD.DosPacketPtr; CODE -252;
  484.  
  485. PROCEDURE Write(file{Reg.D1}:DosD.FileHandlePtr;
  486.            buffer{Reg.D2}:ADDRESS;
  487.            length{Reg.D3}:LONGINT):LONGINT; CODE -48;
  488.  
  489. PROCEDURE WriteChars(buf{Reg.D1}:ADDRESS;
  490.                  buflen{Reg.D2}:LONGINT):LONGINT; CODE -942;
  491.  
  492.  
  493. END DosL.
  494.