<div dir="ltr">Just curious as to why not eating the CPU is important in this case ?<br><br>Unless DOSBOX is very primitive in this regard the CPU that is "eaten" will presumably be the virtual CPU of the VM, not the physical CPU of the host. I haven't tested it but I would have thought that modern CPU's are unlikely to break a sweat when virtualising even a 100% utilised 8086. :)</div><div class="gmail_extra"><br><div class="gmail_quote">On 26 February 2016 at 10:32, John Bird <span dir="ltr"><<a href="mailto:johnkbird@paradise.net.nz" target="_blank">johnkbird@paradise.net.nz</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">
<div dir="ltr">
<div style="FONT-SIZE:12pt;FONT-FAMILY:'Calibri';COLOR:#000000">
<div>Already investigated that – the DOSBOX emulator has no Timeout, or ping
command, no networking at all. If there is no sleep command that
does not eat the CPU then I don’t need to look further....</div>
<div> </div>
<div> </div>
<div style="FONT-SIZE:small;TEXT-DECORATION:none;FONT-FAMILY:"Calibri";FONT-WEIGHT:normal;COLOR:#000000;FONT-STYLE:normal;DISPLAY:inline">
<div style="FONT:10pt tahoma">
<div> </div>
<div style="BACKGROUND:#f5f5f5">
<div><b>From:</b> <a title="jsmith@deltics.co.nz" href="mailto:jsmith@deltics.co.nz" target="_blank">Jolyon Direnko-Smith</a> </div>
<div><b>Sent:</b> Thursday, February 25, 2016 7:19 PM</div><span class="">
<div><b>To:</b> <a title="delphi@listserver.123.net.nz" href="mailto:delphi@listserver.123.net.nz" target="_blank">NZ Borland Developers Group - Delphi
List</a> </div>
</span><div><div class="h5"><div><b>Subject:</b> Re: [DUG] [computing] 16 bit compiler and Ancient
Mariners</div></div></div></div></div>
<div> </div></div>
<div style="FONT-SIZE:small;TEXT-DECORATION:none;FONT-FAMILY:"Calibri";FONT-WEIGHT:normal;COLOR:#000000;FONT-STYLE:normal;DISPLAY:inline"><div><div class="h5">
<div dir="ltr">As a matter of historical curiosity, Delphi 1 was the first AND
last version to support 16-bit targets.<br><br>Delphi 2 included Delphi 1 in the
box for people that still needed 16-bit support but otherwise it was 32-bit all
the way from Delphi 2 onward.<br><br>
<div>There is no direct Sleep() equivalent in 16-bit and some of the other
techniques may help in the absence of that. NB. If you have a TCP/IP stack
and can use PING then you can use that trick and when considering an IP address
to [ab]use, there is (as they say) no place like home:<br><br><span style="FONT-SIZE:12px"> ping 127.0.0.1</span><span style="FONT-SIZE:12px"> -n 2 -w 10000 > NUL<br></span><br>Also note that the
-w delay is BETWEEN pings. The first ping is instant, so to wait for that
specified delay you need to ping TWICE (-n 2).<br><br>Redirecting to NUL also
ensures that the PING output doesn't clutter up your screen (if that's
important).<br><br><br><br>Incidentally, I still have an XP VM hosting my
"Delphi Museum". That is, functional installations of Delphi 1 thru 6 so
if you ever reach a point where you simply need to compile some Delphi 1 code
feel free to get in touch. I may be able to act as a compiler proxy for
you. :)</div></div>
<div class="gmail_extra">
<div> </div>
<div class="gmail_quote">On 25 February 2016 at 17:51, David O'Brien <span dir="ltr"><<a href="mailto:Dave@iccs.co.nz" target="_blank">Dave@iccs.co.nz</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="PADDING-LEFT:1ex;BORDER-LEFT:#ccc 1px solid;MARGIN:0px 0px 0px 0.8ex">Or
"timeout 10" in a batch file...<br>
<div>
<div><br>-----Original Message-----<br>From: <a href="mailto:delphi-bounces@listserver.123.net.nz" target="_blank">delphi-bounces@listserver.123.net.nz</a>
[mailto:<a href="mailto:delphi-bounces@listserver.123.net.nz" target="_blank">delphi-bounces@listserver.123.net.nz</a>]
On Behalf Of Peter Ingham<br>Sent: Thursday, 25 February 2016 5:45 pm<br>To:
NZ Borland Developers Group - Delphi List <<a href="mailto:delphi@listserver.123.net.nz" target="_blank">delphi@listserver.123.net.nz</a>><br>Subject:
Re: [DUG] [computing] 16 bit compiler and Ancient Mariners<br><br>On
25/02/2016 4:47 p.m., John Bird wrote:<br>> I have some legacy software
that requires DOSBOX (DOS emulator to run<br>> 16 bit<br>> software)
when running on 64 bit Windows.<br>><br>> I would like to add some
Delphi addons already written, mainly<br>> console/command line apps, but
all the versions of these I currently<br>> have, (built with Delphi
5/6/2007) say simply This program requires<br>> Win32 to run, ie they are
32 bit compiled even as console apps.<br>><br>> Is there any option in
Delphi to compile for 16 bit OS or do I have to<br>> find Delphi 1 or 2 or
whichever was the last 16 bit version? (have<br>> D2007 and versions
up to Seattle)<br>><br>> One of the main things I want is to have a
command to sleep for 10<br>> seconds without Clobbering the CPU - exactly
what sleep(10000) would do - on Win32<br>> it uses a WIn32 API.
If there is no 16 bit equivalent, ie no<br>> implementation of sleep() in
16 bit Delphi, then I would like to know.<br>><br>> This question is
mainly for other ancient mariners out there who like<br>> me lived through
a lot more of IT history than they like to admit.<br>><br>>
_______________________________________________<br>> NZ Borland Developers
Group - Delphi mailing list<br>> Post: <a href="mailto:delphi@listserver.123.net.nz" target="_blank">delphi@listserver.123.net.nz</a><br>>
Admin: <a href="http://delphi.org.nz/mailman/listinfo/delphi" rel="noreferrer" target="_blank">http://delphi.org.nz/mailman/listinfo/delphi</a><br>>
Unsubscribe: send an email to <a href="mailto:delphi-request@listserver.123.net.nz" target="_blank">delphi-request@listserver.123.net.nz</a><br>>
with Subject: unsubscribe<br>><br>I'm presuming you want a command-line
command you can call from a batch script.<br><br>On systems with TCP/IP
networking, you can use a ping to an address you know does not exist to
simulate a Sleep (the subnet must exist).<br><br>e.g: "ping 192.168.253 -n 1
-w 2000" for a 2 second delay or "ping<br>192.168.253 -n 1 -w 10000" for
10
seconds.<br><br><br>Regards<br>_______________________________________________<br>NZ
Borland Developers Group - Delphi mailing list<br>Post: <a href="mailto:delphi@listserver.123.net.nz" target="_blank">delphi@listserver.123.net.nz</a><br>Admin:
<a href="http://delphi.org.nz/mailman/listinfo/delphi" rel="noreferrer" target="_blank">http://delphi.org.nz/mailman/listinfo/delphi</a><br>Unsubscribe:
send an email to <a href="mailto:delphi-request@listserver.123.net.nz" target="_blank">delphi-request@listserver.123.net.nz</a>
with Subject:
unsubscribe<br><br>_______________________________________________<br>NZ
Borland Developers Group - Delphi mailing list<br>Post: <a href="mailto:delphi@listserver.123.net.nz" target="_blank">delphi@listserver.123.net.nz</a><br>Admin:
<a href="http://delphi.org.nz/mailman/listinfo/delphi" rel="noreferrer" target="_blank">http://delphi.org.nz/mailman/listinfo/delphi</a><br>Unsubscribe:
send an email to <a href="mailto:delphi-request@listserver.123.net.nz" target="_blank">delphi-request@listserver.123.net.nz</a>
with Subject: unsubscribe<br></div></div></blockquote></div>
<div> </div></div>
</div></div><p>
</p><hr><span class="">
_______________________________________________<br>NZ Borland Developers Group -
Delphi mailing list<br>Post: <a href="mailto:delphi@listserver.123.net.nz" target="_blank">delphi@listserver.123.net.nz</a><br>Admin:
<a href="http://delphi.org.nz/mailman/listinfo/delphi" target="_blank">http://delphi.org.nz/mailman/listinfo/delphi</a><br>Unsubscribe: send an email to
<a href="mailto:delphi-request@listserver.123.net.nz" target="_blank">delphi-request@listserver.123.net.nz</a> with Subject:
unsubscribe</span><p></p></div></div></div></div>
<br>_______________________________________________<br>
NZ Borland Developers Group - Delphi mailing list<br>
Post: <a href="mailto:delphi@listserver.123.net.nz">delphi@listserver.123.net.nz</a><br>
Admin: <a href="http://delphi.org.nz/mailman/listinfo/delphi" rel="noreferrer" target="_blank">http://delphi.org.nz/mailman/listinfo/delphi</a><br>
Unsubscribe: send an email to <a href="mailto:delphi-request@listserver.123.net.nz">delphi-request@listserver.123.net.nz</a> with Subject: unsubscribe<br></blockquote></div><br></div>