Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.lang.forth > #21566
| Date | 2013-04-09 12:05 -1000 |
|---|---|
| From | "Elizabeth D. Rather" <erather@forth.com> |
| Organization | FORTH, Inc. |
| Newsgroups | comp.lang.forth |
| Subject | Re: Portability |
| References | (5 earlier) <2013Apr9.092129@mips.complang.tuwien.ac.at> <ZoKdnReYWZBNU_7MnZ2dnUVZ_judnZ2d@supernews.com> <2013Apr9.144119@mips.complang.tuwien.ac.at> <0O6dneB1Wq85xfnMnZ2dnUVZ_jCdnZ2d@supernews.com> <kk1u0o$n4e$1@online.de> |
| Message-ID | <K4ednVfAlIoqDfnMnZ2dnUVZ_oGdnZ2d@supernews.com> (permalink) |
On 4/9/13 10:34 AM, Bernd Paysan wrote:
> Elizabeth D. Rather wrote:
>> But our systems had a lot more performance enhancements than an
>> efficient NEXT. We carefully laid out optimal register assignments on
>> each processor, based on trial codings of primitives, and had quite a
>> lot more code primitives than FigForth.
>
> Gforth contains an 8086 port (with primitives recycled from Klaus Kohl's
> Forth from the 80s), and the NEXT there is
>
> : next,
> lods,
> ax w xchg,
> w ) jmp, ;
>
> This is of course optimized for size (4 bytes) and the 8086, not for modern
> processors. You somehow have to load a word, increment a pointer by 2, and
> jump to what it contains for ITC. If you do DTC, you can do this with two
> instructions (lots + ax jmp), or one (ret) if you use the stack pointer as
> Forth's instruction pointer - a design decision that wasn't very likely in
> the 80s, as you then couldn't use push+pop to access the data stack.
>
Sorry, I no longer have the source for the 8086 version, just the 306.
Its NEXT was:
: NEXT { LODS W 0 XCHG W ) LIP} 27FF97AD , ;
(and I don't remember what the notation was, either).
Cheers,
Elizabeth
--
==================================================
Elizabeth D. Rather (US & Canada) 800-55-FORTH
FORTH Inc. +1 310.999.6784
5959 West Century Blvd. Suite 700
Los Angeles, CA 90045
http://www.forth.com
"Forth-based products and Services for real-time
applications since 1973."
==================================================
Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar
Portability kenney@cix.compulink.co.uk - 2013-04-06 04:12 -0500
Re: Portability albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-04-06 11:31 +0000
Re: Portability "Elizabeth D. Rather" <erather@forth.com> - 2013-04-06 10:34 -1000
Re: Portability "Ed" <invalid@nospam.com> - 2013-04-09 09:56 +1000
Re: Portability albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-04-09 01:30 +0000
Re: Portability anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-04-09 07:21 +0000
Re: Portability "Elizabeth D. Rather" <erather@forth.com> - 2013-04-08 22:18 -1000
Re: Portability anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-04-09 12:41 +0000
Re: Portability Coos Haak <chforth@hccnet.nl> - 2013-04-09 17:21 +0200
Re: Portability "Elizabeth D. Rather" <erather@forth.com> - 2013-04-09 08:06 -1000
Re: Portability Bernd Paysan <bernd.paysan@gmx.de> - 2013-04-09 22:34 +0200
Re: Portability "Elizabeth D. Rather" <erather@forth.com> - 2013-04-09 12:05 -1000
Re: Portability "Elizabeth D. Rather" <erather@forth.com> - 2013-04-09 14:19 -1000
Re: Portability Chris <xrissmith@me.com> - 2013-04-09 20:45 -0700
Re: Portability "Ed" <invalid@nospam.com> - 2013-04-10 14:02 +1000
Re: Portability Hugh Aguilar <hughaguilar96@yahoo.com> - 2013-04-09 23:00 -0700
Re: Portability "WJ" <w_a_x_man@yahoo.com> - 2013-04-12 14:41 +0000
Re: Portability "Ed" <invalid@nospam.com> - 2013-04-13 15:34 +1000
Re: Portability anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-04-10 15:19 +0000
Re: Portability albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-04-10 11:46 +0000
Re: Portability anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-04-10 15:03 +0000
Re: Portability Hugh Aguilar <hughaguilar96@yahoo.com> - 2013-04-09 18:28 -0700
Re: Portability Hugh Aguilar <hughaguilar96@yahoo.com> - 2013-04-09 17:00 -0700
Re: Portability "Ed" <invalid@nospam.com> - 2013-04-10 13:00 +1000
Re: Portability albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-04-10 11:55 +0000
Re: Portability Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-04-10 10:10 -0500
Re: Portability anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-04-10 15:56 +0000
Re: Portability Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-04-10 16:18 -0500
Re: Portability anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-04-11 13:24 +0000
Re: Portability Hugh Aguilar <hughaguilar96@yahoo.com> - 2013-04-11 20:50 -0700
Re: Portability Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-04-12 04:17 -0500
Re: Portability anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-04-12 13:43 +0000
Re: Portability Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-04-12 11:08 -0500
Re: Portability albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-04-12 18:50 +0000
Re: Portability Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-04-13 03:57 -0500
Re: Portability anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-04-13 11:59 +0000
Re: Portability Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-04-13 14:47 -0500
Re: Portability rickman <gnuarm@gmail.com> - 2013-04-12 10:44 -0400
Re: Portability Bernd Paysan <bernd.paysan@gmx.de> - 2013-04-15 16:20 +0200
Re: Portability "Elizabeth D. Rather" <erather@forth.com> - 2013-04-16 08:12 -1000
Re: Portability "A.K." <akk@nospam.org> - 2013-04-16 22:21 +0200
Re: Portability Bernd Paysan <bernd.paysan@gmx.de> - 2013-04-16 22:33 +0200
Re: Portability "Ed" <invalid@nospam.com> - 2013-04-19 15:04 +1000
Re: Portability anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-04-15 15:46 +0000
Re: Portability Sieur de Bienville <morrimichael@gmail.com> - 2013-04-15 19:19 -0700
Re: Portability anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-04-16 12:53 +0000
Re: Portability rickman <gnuarm@gmail.com> - 2013-04-16 17:29 -0400
Re: Portability "Elizabeth D. Rather" <erather@forth.com> - 2013-04-16 11:44 -1000
Re: Portability rickman <gnuarm@gmail.com> - 2013-04-16 18:00 -0400
Re: Portability Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-04-16 17:33 -0500
Re: Portability "Elizabeth D. Rather" <erather@forth.com> - 2013-04-16 12:46 -1000
Re: Portability rickman <gnuarm@gmail.com> - 2013-04-17 13:09 -0400
Re: Portability Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-04-17 12:20 -0500
Re: Portability "Elizabeth D. Rather" <erather@forth.com> - 2013-04-17 07:38 -1000
Re: Portability Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-04-17 16:43 -0500
Re: Portability rickman <gnuarm@gmail.com> - 2013-04-17 20:03 -0400
Re: Portability Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-04-18 16:53 -0500
Re: Portability rickman <gnuarm@gmail.com> - 2013-04-18 18:02 -0400
Re: Portability Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-04-19 03:30 -0500
Re: Portability rickman <gnuarm@gmail.com> - 2013-04-19 15:31 -0400
Re: Portability anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-04-22 09:59 +0000
Re: Portability Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-04-22 07:28 -0500
Re: Portability anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-04-22 15:27 +0000
Re: Portability Hugh Aguilar <hughaguilar96@yahoo.com> - 2013-04-22 18:16 -0700
Re: Portability anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-04-17 10:23 +0000
Re: Portability rickman <gnuarm@gmail.com> - 2013-04-17 13:46 -0400
Re: Portability anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-04-22 09:47 +0000
Re: Portability Brad Eckert <hwfwguy@gmail.com> - 2013-04-17 10:32 -0700
Re: Portability nobody@nowhere - 2013-04-17 17:36 +0000
Re: Portability rickman <gnuarm@gmail.com> - 2013-04-17 14:21 -0400
Re: Portability Brad Eckert <hwfwguy@gmail.com> - 2013-04-17 15:03 -0700
Re: Portability rickman <gnuarm@gmail.com> - 2013-04-17 18:22 -0400
Re: Portability rickman <gnuarm@gmail.com> - 2013-04-17 18:24 -0400
Re: Portability rickman <gnuarm@gmail.com> - 2013-04-18 00:51 -0400
Re: Portability rickman <gnuarm@gmail.com> - 2013-04-18 17:19 -0400
Re: Portability Brad Eckert <hwfwguy@gmail.com> - 2013-04-19 12:37 -0700
Re: Portability rickman <gnuarm@gmail.com> - 2013-04-19 15:53 -0400
Re: Portability Lars Brinkhoff <lars.spam@nocrew.org> - 2013-04-17 19:26 +0200
Re: Portability albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-04-10 18:50 +0000
Re: Portability Bernd Paysan <bernd.paysan@gmx.de> - 2013-04-10 22:14 +0200
Re: Portability Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-04-12 04:18 -0500
Re: Portability "Elizabeth D. Rather" <erather@forth.com> - 2013-04-12 08:30 -1000
Re: Portability albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-04-12 18:58 +0000
Re: Portability "Elizabeth D. Rather" <erather@forth.com> - 2013-04-12 11:29 -1000
Re: Portability "Ed" <invalid@nospam.com> - 2013-04-13 14:57 +1000
Re: Portability Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-04-09 04:11 -0500
csiph-web