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.1 required=5.0 tests=BAYES_00,
	PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,c9d5fc258548b22a
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
From: "Randy Brukardt" <randy@rrsoftware.com>
Newsgroups: comp.lang.ada
Subject: Re: How do I write directly to a memory address?
Date: Wed, 9 Feb 2011 20:21:12 -0600
Organization: Jacob Sparre Andersen Research & Innovation
Message-ID: <iivi2q$p5b$1@munin.nbi.dk>
References: 
 <eb61b659-7d10-4a1b-b930-c34c34b0a3e8@glegroupsg2000goo.googlegroups.com>
 <op.vqk62ka5ule2fv@garhos>
NNTP-Posting-Host: static-69-95-181-76.mad.choiceone.net
X-Trace: munin.nbi.dk 1297304474 25771 69.95.181.76 (10 Feb 2011 02:21:14 GMT)
X-Complaints-To: news@jacob-sparre.dk
NNTP-Posting-Date: Thu, 10 Feb 2011 02:21:14 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.5931
X-RFC2646: Format=Flowed; Response
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.5931
Path: 
 g2news2.google.com!news3.google.com!proxad.net!feeder1-2.proxad.net!feed.ac-versailles.fr!news.ecp.fr!news.jacob-sparre.dk!pnx.dk!not-for-mail
Xref: g2news2.google.com comp.lang.ada:18169
Date: 2011-02-09T20:21:12-06:00
List-Id: <comp.lang.ada>

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