Newsportal USENET - FigForth MIX

Sujet : FigForth MIX
De : sjack (at) *nospam* dontemail.me (sjack)
Groupes : comp.lang.forth
Date : 03. Mar 2025, 17:41:25

Autres entêtes

Organisation : A noiseless patient Spider
Message-ID : <vq4m3k$1cv3v$1@dont-email.me>
User-Agent : tin/2.6.4-20240224 ("Banff") (Linux/6.8.0-54-generic (x86_64))

A FigForth MIX

( support )
( : i. ." --> " ; )
( Sample 'MIX'(ish) in high level FigForth )
Vocabulary MIX immediate
MIX definitions

: sto ( n a -- ) ! ;
: add ( n a -- ) +! ;
( 'i:' starts inline definition )
i: mov ( a1 a2 -- ) >r @ r> ! ;
i: xor ( a1 a2 -- ) >r @ r @ forth xor r> ! ;
i: xchg ( a1 a2 -- ) dup >r @ over @ r> ! swap ! ;
( some registers )
0 variable r1
0 variable r2

( Test run )
MIX
1 r1 sto
r1 r2 mov
1 r2 add
i. r1 ? --> 1
i. r2 ? --> 2

r1 r2 xchg
i. r1 ? --> 2
i. r2 ? --> 1

r1 r2 xor r2 r1 xor r1 r2 xor
i. r1 ? --> 1
i. r2 ? --> 2

-fin-
OK

Date	Sujet	#	Auteur
3 Mar 25	FigForth MIX	3	sjack
3 Mar 25	Re: FigForth MIX	1	mhx
3 Mar 25	Re: FigForth MIX	1	mhx