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=0.1 required=5.0 tests=BAYES_05,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,fd3c44bd8f938354
X-Google-Attributes: gid103376,public
From: Philippe BOURZEIX <bourzeix@shom.fr>
Subject: Re: Parallel port
Date: 2000/03/06
Message-ID: <38C37F6D.A52CB4B7@shom.fr>#1/1
X-Deja-AN: 593736818
Content-Transfer-Encoding: 7bit
References: <C4tw4.687$rl1.4436170@nnrp3.proxad.net>
 <38c28137_2@news2.prserv.net>
To: Jerry van Dijk <jvandyk@attglobal.net>
X-Accept-Language: fr, en
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: newsmaster@shom.fr
X-Trace: typhon.shom.fr 952336238 25478 192.168.26.52 (6 Mar 2000 09:50:38
 GMT)
Organization: Etablissement Principal du Service Hydrographique et
 Oceanographique de la Marine
Mime-Version: 1.0
NNTP-Posting-Date: 6 Mar 2000 09:50:38 GMT
Newsgroups: comp.lang.ada
Date: 2000-03-06T09:50:38+00:00
List-Id: <comp.lang.ada>

Jerry van Dijk wrote:

> > I would like to access to my parallel port.
> > To read and write in the register 16#378, 16#379, 16#37A
>
> That would depend on which OS you are using...

My program run on Windows.

For the data is someone have an idea ?

Something like this is correct :

type byte is new short_short_integer;
for byte'size use 8:        --8 bits
Reg_1 ,Reg_2,Reg_3 : byte;
for Reg_1'address use To_Address(16#378#);
for Reg_1'address use To_Address(16#379#);
for Reg_1'address use To_Address(16#37A#);


The purpose of  all my question is to be able to use a lcd screen (2
lines, 40 caracters) connected on the lpt port.

The connection is like this :

        LPT                LCD
STROBE           1        ->        6
D0                       2        ->        7
D1                       3        ->        8
D2                       4        ->        9
D3                       5        ->        10
D4                       6        ->        11
D5                       7        ->        12
D6                       8        ->        13
D7                        9        ->        14
                            10
                            11
                            12
                            13
                            14
                            15
INIT                  16        ->        5
SELECT IN    17        ->        4
                             18
                             19
                             20
                             21
                             22
                             23
                             24
                             25