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,407c579dbfad5c2c
X-Google-Attributes: gid103376,public
From: Philippe BOURZEIX <bourzeix@shom.fr>
Subject: Re: Parallel Port
Date: 2000/03/21
Message-ID: <38D7691B.4E5F4177@shom.fr>#1/1
X-Deja-AN: 600369685
Content-Transfer-Encoding: 7bit
References: <172B4.2690$wl2.12638330@nnrp4.proxad.net>
X-Accept-Language: fr, en
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: newsmaster@shom.fr
X-Trace: typhon.shom.fr 953641244 9786 192.168.26.237 (21 Mar 2000 12:20:44
 GMT)
Organization: Etablissement Principal du Service Hydrographique et
 Oceanographique de la Marine
Mime-Version: 1.0
NNTP-Posting-Date: 21 Mar 2000 12:20:44 GMT
Newsgroups: comp.lang.ada
Date: 2000-03-21T12:20:44+00:00
List-Id: <comp.lang.ada>

The purpose of all my question, is to access to a lcd screen (on the parallel
port).
I have found a C program who can do what i want. Is it possible to do the same
in ADA?

#include <string.h>

#define portaddress 0X378

#define data portaddress + 0
#define status portaddress + 1
#define control portaddress + 2

void main (void)

{
    char string [] = {"testing 1,2,3          "
                                    "It works                "};
    char init [10];
    int count;
    int len;
    init[0] = 0X0F; /* init display */
    init[1] = 0X01; /* clear display */
    init[2] = 0X38; /* dual line / 8 bits */

    outportb(control, inportb(control) & OXDF); /* reset control port */
    outportb(control, inportb(control) | 0X08); /* set select printer */

    for (count = 0; count <= 2; count ++)
    {
        outportb(data, init[count]);
        outportb(contol,inportb(control) | 0X01); /*set strobe enable*/
        delay(20);
        outport(control,inportb(control) & OXFE); /* reset strobe enable)*/
        delay(20);
    }

    outportb(control, inportb(control) & OXF7); /* reset select printer */

    len = strlen(string);

    for (count=0; count < len,; count ++)
    {
        outportb(data,string[count]);
        outportb(control, inportb(control) | 0X01); /*set strobe*/
        delay(2);
        outportb(control, inportb(control) & 0XFE); /* reset strobe */
        delay(2);
    }
}



Is there any library with such outportb function in the ada world ...