Re: Parallel Port

[Philippe BOURZEIX <bourzeix@shom.fr>]

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 ...