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-Language: ENGLISH,ASCII X-Google-Thread: 103376,6a4dfe772544eb65 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2003-11-19 18:32:17 PST Path: archiver1.google.com!news2.google.com!news.maxwell.syr.edu!c03.atl99!chi1.webusenet.com!news.webusenet.com!cyclone1.gnilink.net!spamkiller2.gnilink.net!nwrdny03.gnilink.net.POSTED!53ab2750!not-for-mail From: "Stephane Richard" Newsgroups: comp.lang.ada References: Subject: Re: Low Level Ada X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2800.1158 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165 Message-ID: Date: Thu, 20 Nov 2003 02:32:17 GMT NNTP-Posting-Host: 129.44.80.119 X-Complaints-To: abuse@verizon.net X-Trace: nwrdny03.gnilink.net 1069295537 129.44.80.119 (Wed, 19 Nov 2003 21:32:17 EST) NNTP-Posting-Date: Wed, 19 Nov 2003 21:32:17 EST Xref: archiver1.google.com comp.lang.ada:2705 Date: 2003-11-20T02:32:17+00:00 List-Id: How about if I want to call an interrupt in Ada? Say Interrupt 10h to set the video mode to 132x50 (mode 10Ah on a vesa/bde standard video card) for example. -- St�phane Richard "Ada World" Webmaster http://www.adaworld.com wrote in message news:Y1Pub.185870$mZ5.1346044@attbi_s54... > > For instance, let's say I want to create an Array that would hold characters > > with the goal to send it to the video card directly (address $B800). > You can use an address clause to put an object (eg an array) anywhere > and then just do normal assignment operations. So if you declare > type Display_Strings is array(Integer range <>) of Char_Attribute_Pairs; > Screen : Display_Strings(1 .. 24*80); > for Screen'address use 16#B800#; > you can > Screen(1) := ('a',Blinking); > or > Screen(Start .. Start+Last-1) := Work_Buffer(1 .. Last); > Note of course that if you are running on a Windows machine 16#B800# is > a virtual memory address, not a hardware one. In that case you would need: > Video_Memory_Address: constant System.Address := Beg_Of_Windows(16#B800); > for Screen'address use Video_Memory_Address;