freepascal.compiler/rtl/os2/objinc.inc

{
	$Id$
	This file is part of the Free Pascal run time library.
	Copyright (c) 1999-2000 by the Free Pascal development team.

	Includefile for objects.pp implementing OS-dependent file routines
	for EMX (OS/2 & DOS)

	See the file COPYING.FPC, included in this distribution,
	for details about the copyright.

	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

 **********************************************************************
}

{This is the correct way to call external assembler procedures.}
procedure syscall;external name '___SYSCALL';

FUNCTION FileClose(Handle: THandle): word;
begin
   asm
	  xor  %bx,%bx
	  movw handle,%bx
	  movb $0x3e,%ah
	  call syscall
   end;
   FileClose := 0;
end;

FUNCTION FileOpen (Var FileName: AsciiZ; Mode: Word): THandle;
var
 AMode: word;
begin
  if Mode=stCreate then
	Begin
	  AMode:=$8302;
	end
  else
	Begin
	  Case (Mode and 3) of
	   0 : AMode:=$8001;
	   1 : AMode:=$8404;
	   2 : AMode:=$8404;
	  end;
	end;
   asm
	 xorl  %eax, %eax
	 movw  %ax, DosStreamError
	 movl  FileName, %ebx
	 movw  $0xff02, %ax
	 movw  AMode, %cx
	 call  syscall
	 jnc   .Lexit1
	 movw  %ax, DosStreamError                        { Hold Error  }
	 xorl  %eax, %eax                                 { Open Failed }
   .Lexit1:
	 movw  %ax, __RESULT
   END;
end;


FUNCTION SetFilePos (Handle: THandle; Pos: LongInt; MoveType: Word;
Var Actual: LongInt): Word;
Var
 val : longint;
BEGIN
  asm
	 movw MoveType, %ax;                              { Load move type }
	 movb $0x42, %ah;
	 movl pos, %edx;                              { Load file position }
	 movw Handle, %bx;                              { Load file handle }
	 call syscall
	 jc .Lexit4
	 movl    %eax,val                               { Update new position }
	 xorl %eax, %eax;
   .Lexit4:
	 movw %ax, DosStreamError                         { OS2 error returned }
   .Lend:
   END;
   Actual := val;
   SetFilePos := DosStreamError;                   { Return any error }
END;


FUNCTION FileRead (Handle: THandle; Var Buf; Count: Sw_Word;
Var Actual: Sw_Word): Word;
BEGIN
  asm
	 movl count,%ecx
	 movl buf,%edx
	 xorl %ebx,%ebx
	 movw handle,%bx
	 movb $0x3f,%ah
	 call syscall
	 jnc .LDOSREAD1
	 movw %ax,DosStreamError
	 xorl %eax,%eax
  .LDOSREAD1:
  end;
  Actual:=Count;
  FileRead:=DosStreamError;
end;


FUNCTION FileWrite (Handle: THandle; Var Buf; Count: Sw_Word; Var Actual: Sw_Word): Word;
BEGIN
  Actual:=0;
  asm
	 movl Count,%ecx
	 movl buf,%edx
	 xorl %ebx,%ebx
	 movw Handle,%bx
	 movb $0x40,%ah
	 call syscall
	 jnc .LDOSWRITE1
	 movw %ax,DosStreamError
  .LDOSWRITE1:
  end;
  Actual:=Count;
  FileWrite:=DosStreamError;
end;


function SetFileSize (Handle: THandle; FileSize: longint): word; assembler;
asm
    movl $0x7F18, %eax
    movl Handle, %ebx
    movl FileSize,%edx
    call syscall
    jc .LSetFSize1
    movl $0x4202, %eax
    movl Handle, %ebx
    movl $0, %edx
    call syscall
    movl $0, %eax
    jnc .LSetFSize1
    decl %eax
.LSetFSize1:
end;

{
  $Log$
  Revision 1.8  2000-06-12 17:26:29  hajny
    * little mistyping in SetFileSize

  Revision 1.7  2000/06/06 17:10:36  hajny
    * moving file ptr to the end in SetFileSize

  Revision 1.6  2000/06/05 18:55:54  hajny
    * another SetFileSize correction

  Revision 1.5  2000/06/04 14:17:28  hajny
    * SetFileSize fixed

  Revision 1.4  2000/02/09 16:59:33  peter
    * truncated log

  Revision 1.3  2000/01/07 16:41:48  daniel
    * copyright 2000

  Revision 1.2  2000/01/07 16:32:32  daniel
    * copyright 2000 added

}