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.9 required=5.0 tests=BAYES_00 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII X-Google-Thread: 103376,477d2c7239b77805 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2002-03-08 08:33:14 PST Path: archiver1.google.com!news2.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed1.swip.net!swipnet!nntpserver.swip.net!not-for-mail From: Bj�rn Lundin Newsgroups: comp.lang.ada Subject: Re: no crash dump ? Message-ID: <20020308172207.2a82c68a.bjorn.lundin@swipnet.se> References: <20020307215639.37cf3f6d.bjorn.lundin@swipnet.se> X-Newsreader: Sylpheed version 0.7.2 (GTK+ 1.2.10; i586-pc-linux-gnu) Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit NNTP-Posting-Host: 212.151.29.54 X-Complaints-To: news-abuse@swip.net X-Trace: nntpserver.swip.net 1015604511 212.151.29.54 (Fri, 08 Mar 2002 17:21:51 MET DST) NNTP-Posting-Date: Fri, 08 Mar 2002 17:21:51 MET DST Organization: A Customer of Tele2 X-Sender: x-367446@d212-151-29-54.swipnet.se Date: Fri, 8 Mar 2002 17:22:07 +0100 Xref: archiver1.google.com comp.lang.ada:20946 Date: 2002-03-08T17:22:07+01:00 List-Id: On Thu, 07 Mar 2002 18:37:36 -0600 sk wrote: > Firstly, wont compile without a line adding a definition for "b" How embarrissing , I sent modified code. Below is what i meant to send > But, the real issue is where are you actually > trying to write data to the "Joystick" ? No read from it, putline was for print on screen Thanks for suggetions /Bj�rn with Text_io; use Text_io; with system; with GNAT.Traceback.Symbolic; procedure interrupt is Joystick_address : system.address := system'to_address(16#0201#); type byte is range 0..255; for byte'size use 8; Joystick : byte; for Joystick'address use Joystick_address; begin put_line("Main program started!"); loop put_line(byte'image(Joystick)); delay 0.2; end loop; exception when Event : others => Put_Line (GNAT.Traceback.Symbolic.Symbolic_Traceback (Event)); end interrupt;