Path: ...!news.misty.com!weretis.net!feeder9.news.weretis.net!news.nk.ca!rocksolid2!i2pn2.org!.POSTED!not-for-mail
From: mhx@iae.nl (mhx)
Newsgroups: comp.lang.forth
Subject: Re: VALUE and TO implementation
Date: Sat, 3 Aug 2024 10:49:48 +0000
Organization: novaBBS
Message-ID: <8d987eafbce5a4759e7d6d7d41f11723@www.novabbs.com>
References: <a1aab44ee3b1b56c2f54f2606e98d040@www.novabbs.com> <v8b04c$137lg$1@dont-email.me> <nnd$6e668a8e$712b1a09@1b1e479e823969fb> <v8cuur$1go8k$1@dont-email.me> <2af79ef5abcec71a1d42a461b6bc56b8@www.novabbs.com> <v8dntr$1lcff$1@dont-email.me> <2024Jul31.193344@mips.complang.tuwien.ac.at> <v8ekea$1po8g$1@dont-email.me> <2024Aug1.120730@mips.complang.tuwien.ac.at> <v8in5k$2pq99$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: i2pn2.org;
	logging-data="1311237"; mail-complaints-to="usenet@i2pn2.org";
	posting-account="t0bSWFIQDvYvkkhDiPIIv6byulC6WbSEwXWMJpxc4k0";
User-Agent: Rocksolid Light
X-Rslight-Posting-User: 59549e76d0c3560fb37b97f0b9407a8c14054f24
X-Spam-Checker-Version: SpamAssassin 4.0.0
X-Rslight-Site: $2y$10$1r/UzaCW9gi7BYzaAgk9t.SD0TeE6E8ewR.BNYKk6XsMjjSpBQeRe
Bytes: 1687
Lines: 17

FORTH> 0 value _v1 immediate  ok
FORTH> : test-to 1 to _v1 ;  ok
FORTH> see test-to
Flags: TOKENIZE, ANSI
: test-to  1 TO _v1 ;  ok
FORTH> : tt test-to _v1 . ;  ok
FORTH> see tt
Flags: ANSI
$01341640  : tt
$0134164A  mov           $01341190 qword-offset, 1 d#
$01341655  push          $01341190 qword-offset
$0134165B  jmp           .+10 ( $0124A102 ) offset NEAR
FORTH> tt 1  ok
FORTH>

FWIW.

-marcel