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=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!newsfeed.fsmpi.rwth-aachen.de!newsfeed.straub-nv.de!feeder1-2.proxad.net!proxad.net!feeder2-2.proxad.net!cleanfeed3-a.proxad.net!nnrp6-1.free.fr!not-for-mail
Subject: Re: Kernel Syscall from Ada?
Newsgroups: comp.lang.ada
References: <2048d6d6-04e2-4e2c-9483-e3769da59781@googlegroups.com>
From: Xavier Petit <xpetit@becoast.fr>
Date: Fri, 24 Jun 2016 03:13:28 +0200
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101
 Icedove/45.1.0
MIME-Version: 1.0
In-Reply-To: <2048d6d6-04e2-4e2c-9483-e3769da59781@googlegroups.com>
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <576c8938$0$3336$426a74cc@news.free.fr>
Organization: Guest of ProXad - France
NNTP-Posting-Date: 24 Jun 2016 03:13:28 CEST
NNTP-Posting-Host: 78.217.21.11
X-Trace: 1466730808 news-3.free.fr 3336 78.217.21.11:37754
X-Complaints-To: abuse@proxad.net
Xref: news.eternal-september.org comp.lang.ada:30898
Date: 2016-06-24T03:13:28+02:00
List-Id: <comp.lang.ada>

On windows :

procedure Beethoven is
    type Dword is mod 2 ** 32 with Size => 32;

    procedure Beep (Frequency, Period : in Dword)
      with Import, Convention => Stdcall, External_Name => "Beep";
begin
    Beep (784, 250);
    Beep (784, 250);
    Beep (784, 250);
    Beep (622, 1000);
end;

Maybe you are looking at this "Stdcall" convention ?
Also regarding small executables, I LOVE this one :
http://madebyevan.com/diskitude/

(false positive for a few antivirus)

10kb (static) for a very useful windows tool (use right click to 
zoom-in/out to folders), very impressive, too bad the author doesn't 
give the source code...

-- 
Xavier Petit