Op Sun, 23 Mar 2008 15:13:43 +0100 schreef Montesquiou:
> "Marcel Hendrix" <mhx@[EMAIL PROTECTED]
> a écrit dans le message de news:
> 96001732203559@[EMAIL PROTECTED]
>> <Montesquiou> writes Re: The word RECURSE
>> [..]
>>>> Maybe you want to define
>>
>>>> : cell+ 2+ ;
>>>> : nfa>cfa count $1F and + cell+ ;
>>
>>> As it is an old compiler things are different. The layout of the words
is
>>
>>> DEFB N Name Length Field
>>> DEFM "XXX" Name Field
>>> DEFW NN Link Field
>>> DEFW NN Code Field
>>> DEFD Data Parameter Field
>>
>>> Therefore fetching the NLFA gives the length.
>>
>> I was just pointing out that
>> 1. CELL+ will ease porting your ZX81 code to a 32bit or 64bit platform
>> easily,
>> 2. the compiler will toggle bits in N sometimes ( $1F AND )
>> 3. "COUNT +" is shorter than "dup c@[EMAIL PROTECTED]
1+ +".
>>
>> -marcel
>>
>
> Oh yes!
>
> Interesting point.
> Will be Cell
>
> 2 constant Cell
> for the Z81 ?
>
And ZX Spectrum, Commodore 64, Apple ][, Vic 20, ELF II, TRS-80, PDP-11,
HP-2100, and many more of yesteryear ;-)
--
Coos
CHForth, 16 bit DOS applications
http://home.hccnet.nl/j.j.haak/forth.html
|
