freepascal.compiler/rtl/os2/ports.pas

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

    These files adds support for TP styled port accesses (port[],
    portw[] and portl[] constructs) using Delphi classes.

    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.

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

(*
  Warning:
  1) You have to enable port access in your CONFIG.SYS (IOPL directive),
     either globally (IOPL=YES), or just for particular application/-s with
     a need for port access (IOPL=app_name1, appname2, ...).
  2) Once you access some port, access to this port is enabled all the time
     for all EMX applications until EMX.DLL is unloaded from memory (i.e.
     all applications using this library finish).
*)

unit Ports;

{ This unit uses classes so ObjFpc mode is required. }
{$Mode ObjFpc}
{$calling StdCall}

interface

type
 TPort = class
  protected
   procedure WritePort (P: word; Data: byte);
   function ReadPort (P: word): byte;
  public
   property PP [W: word]: byte read readport write writeport; default;
 end;

 TPortW = class
  protected
   procedure WritePort (P: word; Data: word);
   function ReadPort (P: word): word;
  public
   property PP [W: word]: word read readport write writeport; default;
 end;

 TPortL = class
  protected
   procedure WritePort (P: word; Data: longint);
   function ReadPort (P: word): longint;
  public
   property PP [W: word]: longint read readport write writeport; default;
 end;

 { Non-instantiated vars. As yet, they don't have to be instantiated,
   because neither member variables nor virtual methods are accessed }

var
 Port, PortB: TPort;
 PortW: TPortW;
 PortL: TPortL;

implementation

{Import syscall to call it nicely from assembler procedures.}

procedure syscall; external name '___SYSCALL';

{$AsmMode ATT}

procedure TPort.WritePort (P: word; Data: byte); assembler;
asm
 xorl %ecx, %ecx
 movw P, %cx
 movl %ecx, %edx
 movw $0x7F12, %ax
 call syscall
 movw P, %dx
 movb Data, %al
 outb %al, %dx
end {['eax', 'ecx', 'edx']};

function TPort.ReadPort (P: word): byte; assembler;
asm
 xorl %ecx, %ecx
 movw P, %cx
 movl %ecx, %edx
 movw $0x7F12, %ax
 call syscall
 movw P, %dx
 inb %dx, %al
end {['eax', 'ecx', 'edx']};

procedure TPortW.WritePort (P: word; Data : word); assembler;
asm
 xorl %ecx, %ecx
 movw P, %cx
 movl %ecx, %edx
 movw $0x7F12, %ax
 call syscall
 movw P, %dx
 movw Data, %ax
 outw %ax, %dx
end {['eax', 'ecx', 'edx']};

function TPortW.ReadPort (P: word): word; assembler;
asm
 xorl %ecx, %ecx
 movw P, %cx
 movl %ecx, %edx
 movw $0x7F12, %ax
 call syscall
 movw P, %dx
 inw %dx, %ax
end {['eax', 'ecx', 'edx']};

procedure TPortL.WritePort (P: word; Data: longint); assembler;
asm
 xorl %ecx, %ecx
 movw P, %cx
 movl %ecx, %edx
 movw $0x7F12, %ax
 call syscall
 movw P, %dx
 movl Data, %eax
 outl %eax, %dx
end {['eax', 'ecx', 'edx']};

function TPortL.ReadPort (P: word): longint; assembler;
asm
 xorl %ecx, %ecx
 movw P, %cx
 movl %ecx, %edx
 movw $0x7F12, %ax
 call syscall
 movw P, %dx
 inl %dx, %eax
end {['eax', 'ecx', 'edx']};

end.

{
  $Log$
  Revision 1.5  2003-12-04 21:22:38  peter
    * regcall updates (untested)

  Revision 1.4  2003/10/18 16:58:39  hajny
    * stdcall fixes again

  Revision 1.3  2003/10/07 21:26:35  hajny
    * stdcall fixes and asm routines cleanup

  Revision 1.2  2002/09/07 16:01:25  peter
    * old logs removed and tabs fixed

}