"Yannick Duch�ne (Hibou57)" <yannick_duchene@yahoo.fr> wrote in message 
news:op.vqk62ka5ule2fv@garhos...
...
>There may be a real issue here. This was segment register = B800 and 
>offset register = 0000, for the base address. Ada does not make any 
>distinction about segment and offset. There should be something stated in 
>the compiler's documentation, to know how it maps linear address to 
>segment:offset address.

The 16-bit versions of Janus/Ada have no concept of "linear address". Type 
Address is a record type, with a Segment and Offset component. Thus:

         Address'(Segment =>16#B800#, Offset => 0)

Would represent the address B800:0000.

                                   Randy.