From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,24bc3b66cdc3b8dd
X-Google-Attributes: gid103376,public
From: Alain Senjean <senjean@club-internet.fr>
Subject: Re: Help: accessing Bios param from Ada
Date: 1999/04/17
Message-ID: <3717B647.A288471@club-internet.fr>#1/1
X-Deja-AN: 467307523
Content-Transfer-Encoding: 7bit
References: <3713B162.55EA70F7@club-internet.fr> <FA5LD5.7t@jvdsys.stuyts.nl>
 <3714EB7F.D6B6814D@club-internet.fr> <FA7J0G.Cv@jvdsys.stuyts.nl>
X-Accept-Language: fr,en
Content-Type: text/plain; charset=us-ascii
X-Trace: front3.grolier.fr 924300900 9651 195.36.195.144 (16 Apr 1999 22:15:00
 GMT)
Organization: Club-Internet (France)
Mime-Version: 1.0
NNTP-Posting-Date: 16 Apr 1999 22:15:00 GMT
Newsgroups: comp.lang.ada
Date: 1999-04-16T22:15:00+00:00
List-Id: <comp.lang.ada>

Jerry van Dijk wrote:
> 
> It seems you are confusing a Win32 console (text) mode application with a DOS application.
It's very likely because I am not used to this environment.
 
> Since you are using a Windows compiler, the console applications it generates
> are running in the Win32 environment. To get a DOS console application you
> need to use a DOS compiler (either the DOS port of GNAT or buy the Pharlap
> DOS extender for OA).
> 
You are right but it is not my real problem.

In fact, I want two things:
1) access parallel port registers in order to implement a nibble mode
protocol (details don't matter)
   It's done with info from Ed Falis in this group (Machine_Code_386
package) using just some pseudo-assembler lines:
   
   function In_Port8
      (Port : in Basic_Types.Int_16)
      return Basic_Types.Byte is
   Offset : constant Basic_Types.Int_16 := Port; 
   Data   : Basic_Types.Byte;
   begin
      -- save used regsiters
      ...
      -- Retrieve Offset Parameter
      Mov(Dx,Ptr_On_Int_16(Offset));
      -- Get current port value as 8 bits
      I_In(Al,Dx);
      -- Copy port value to local data
      Mov(Ptr_On_Byte(Data),Al);
      -- Restore used registers
      ...
      -- return port value      
      return Data;
   end In_Port8;

2) Access a four word table located at address (0000:0408) in BIOS and
giving LPT ports base address.
   To do this job, I don't care about the environment.
   But, in fact I'm looking for the assembler/Ada synthax (as I found no
service) to access this table.
   Of course, restrictions can differ between Dos and Windows but I can't
imagine a system restricting (read) access to its own configuration. It
would be against potability between machines.